000000000 GGGGGGGGGGGG IIIIIIII1 NNN NNN 
LLL 000000000 GGGGGGGGGGGG III NNN NNN 
LLL 000000000 GGGGGGGGGGGG IIIT NNN NNN 
LLL 000 000 GGG II] NNN NNN 
LLL 000 000 GGG IIl NNN NNN 
LLL 000 GGG Il NNN NNN 
LLL 000 000 GGG Ill NNNNNN NNN 
LLL 000 000 GGG II] NNN NN 
LLL 000 000 GGG Ii] NNNNNN NNN 
LLL 000 000 GGG II] NN NNN NNN 
LLL 000 000 GGG II] NNN NNN NNN 
LLL 000 000 GGG III N 
LLL 000 000 GGG 66G6G6GGGG6G II] NNN NNNNNN 
LLL 000 000 GGG 666666666 Il NNN NNNNNN 
LLL 000 000 GGG 666666666 Il NNN NNNNNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIIIIII NNN NNN 
LLLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIIIIII1 NNN NNN 
LLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIT NNN NNN 
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**FILE**1D**LOGIN 
LL 000000 GGGGGGGG III1] NN NN 
LL 000000 GGGGGGGG 1111 NN NN 
LL 00 00 GG I] NN NN 
LL 00 00 GG I] NN NN 
LL 00 00 GG I] NNNN NN 
LL 00 00 GG I] NNNN N 
LL 00 00 GG I] NN NN NN 
LL 00 00 GG I] NN NN NN 
LL 00 00 GG GGGGGG I] NN NNNN 
LL 00 00 GG GGG6GGG I] NN NNNN 
LL 00 00 GG GG I] NN NN cove 
LL 00 00 GG GG I] NN NN eves 
LLLLLLLLLL 000000 GGGGGG III! NN NN cece 
LLLLLLLLLL 000000 GGGGGG III! NN NN cece 
LL IIIIII SSSSSSSS 
LL III SSSSSSSS 
LL I] SS 
LL I] SS 
LL Il SS 
LL I] SS 
LL Il SSSSSS 
LL II SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL 111] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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MODULE Login (IDENT = *v04-000', 


AIN = start 
ADDRESSING_MODE (EXTERNAL = GENERAL)) = 
BEGIN 


' 
Re Ree eRe RARE AAA AAAAAAA RAAT RARER AREA AAT E AAAS 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


N 

000 
: 1 0001 
3 ¢ Ons 
3 00 
; 4 004 1 
es Bs 
; 7 $608 1 
; 8 R208 1 . 
; 7 009 1 * 
: 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 13 gett ' ‘* ALL RIGHTS RESERVED. * 
: ; % 
: i $018 1 !@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
. 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 9018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 + Bas : TRANSFERRED. * 
Py .* % 
: $9 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE aa 
: 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $8 OSs : ws CORPORATION. * 
3 ‘® ® 
: $e bose 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS . 
H $2 +4 2 : i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 ; * 
; e7 $059 1 !e * 
: $8 B05 LF eee eee eee RARER AAA AAA AAA AERA ATER E TARA AAA ARE TATRA ee 
$ 9 1 
; $0 $080 1 S44 ‘ 
: 0031 1 ! FACILITY: Login 
. ite 1! 
: 33 00335 1 ! ABSTRACT: 
; 0034 1! 
:; 0035 1! This image initializes the process context for a particular 
; 38 te) : user and transfers control the the command Language interpreter. 
3 38 0038 1 ! ENVIRONMENT: 
; 0039 1! 
:; 40 0040 1! VAX/VMS operating system. 
; 41 0041 1! 
3 $§ B26 1 ! AUTHOR: Tim Halvorsen, March 1981 
a 0045 1! 
; 646 044 1 ! Modified by: 
5 6 45 045 1! 
: 46 0046 1! v03-033 ACG0436 Andrew C. Goldstein, 23-Jul-1984 16:35 
s 67 0047 1! Add central check for DISUSER flag; set DISUSER on breakin 
s $8 Bpee : } if enabled. 
; = 0050 1! V03-032 ACG0432 Andrew C. Goldstein, 9=-Jul-1984 11:52 
‘fom 0051 1! Implement PRC$V_NOPASSWORD (tag: disable LOG_I0O privilege 
3 2g $036 1! before logout for correct /HANGUP control (image is now 
; 54 Bez : installed with LOG_IO). 
3 5 $oa8 1! v03-031 JRLOOO08 John R. Lawson, Jr. 25-Jun-1984 10:07 
; R228 , Add support for AUTHORIZE/PWDEXPIRED which creates 
> iF 0057 1! pre-expired passwords ... Set UAFSV_PWD_EXPIRED if 


Pp 
CILOGIN.B32:1.— dl 


: $8 0058 1 | UAFSQ_PUD_DATE Lss 0. | 
; 60 0060 1! V03-030 MHB0143 Mark Bramhall 22-May-1984 
; 66) 0061 1! Changes for new account name conventions. 

; 6 p0e¢ 1; Limi ret ing peseyore to NSA$S_PKT_PASSWORD. 
: oF BRe7 ! Use LGIS_NOSUCHUSER and LGIS_INVPWD instead of -2 and -4. 
; @ 0065 1! V03-029 MHB0124 Mark Bramhall 11-Apr-1984 

; & BR98 1! Reset creator's CLI and table names if using UAF. 

; «67 0067 1! Add security auditing for LOGIN failures. 
; OB 0068 1! Security audit breakin attemots. 

; B08? 1! Give advance warning on password expirations. 

; 0070 1! Add routine to set a terminal's hangup state. 

Bes 0071 1! Always hang up the terminal en Login peiaucgs. 

, o£ BRr¢ 1! Move UAF$V_AUDIT to PCB_STS CPCBSV_SECAUDIT] when UAF is read. 
‘SEP 0075 1! Change initial logic that gathers terminal inforation. 
; ie Bere : } Cancel CLI AST request(s) on PPD$W_INPCHAN during LOGOUTs. 

: 0076 1! V03-028 MHB0116 Mark Bramhall 23-Mar-1984 

RR 4 0077 1! Add security auditing for successful LOGINs. 

3 A th ! Add security auditing for LOGOUTs. i 
; 0080 1! V03-027 MHB0113 Mark Bramhall 21-Mar-1984 

; #8 0081 1! Remove temporary job type fetch kludge. 

; 0082 1! Use LNM services for logical names. 
; 8 0083 1! Add first cut at automated re-connection. 
; 0084 1! Make LOGOUT use current CLI's result parse via SYSSCLI. 

36 «685 0085 1! Reference PCB_STS as a BITVECTOR. 
; 86 0086 | Set TERM_NAME, PHY_TERM_NAME, and CLU_TERM_NAME on entry. 

s 868 0088 1! v03-026 LJK0262 Lawrence J. Kenah 28-Feb-1984 
; 34 494 : } Use LGISCMSUPR to rundown CLI. 

; 91 0091 1! v03-025 PCG0001 Peter George 31-Jan-1984 12:51 
; 0092 1! Add check for account expiration. 

: «693 0095 1! Do not open UAF for subprocesses. 

: 96 0094 1! Add FAB and RAB arguments to call to lgi$searchuser. 
3 3? BRa2 : Update appropriate UAF fields. 
; 87 0097 1! v03-024 ACG0391 Andrew C. Goldstein, 18-Jan-1984 18:13 
; a8 si : Specify proper length when protecting the PPD 
; 100 0100 1! v03-023 ACGO385 Andrew C. Goldstein, | 28-Dec-1983 17:41 
; 101 gi9i . | Handle extended username and account in UAF, 
; 106 §198 : implement new restriction flags 

3: 104 0104 1! V03-022 ACG0379 Andrew C. Goldstein, 6-Dec-1983 19:33 
; 10? Bide : Make GET_UAFREC return status to handle the OPAQ: case | 
> 67 O109 1! v03-021 ACG0376 Andrew C. Goldstein, 18-Nov-1983 19:11 
; 108 0108 1! Process /CNOJHANGUP only if SYSSINPUT is a terminal; 
3; 109 0109 1! use physical terminal name for OPAO check. Interface 
3; 110 0110 1! cleanups in UAF validation and process type decision. 
: 111 Hee 1! Cancel CLI's exit handlers before doing logout or job 
: 6 pits ! step processing. 
: #116 0114 1! v03-020 ACG0363 Andrew C. Goldstein, 27-Sep-1983 18:09 


v04-000 14-Sep-19 


Use $GETDVI to check for OPAO: for device name independence 
in UAF presence check 


v03-019 GASO188 ere Smith 22-Sep-1983 
Change the sense of the call to CIA_SCAN for the case of 
successful logins. 


v03-018 GAS0183 perry Smith 16-Sep-1983 
Add support for breakin evasion. This is done by making 
checks in VALIDATE_UAFREC. 


V03-017 GASO0169 Gerry Smith ezoug. 1985 
For interactive processes, open SYSSINPUT and SYSS$OUTPUT 
unconditionally, rather than trying to figure out if we only 
need to open one and fake the other fab out. The rationale 
for this is that interactive processes may not have both 
input and output to the same place -- that is the choice of 
the individual who requested that the process be created. 
The additional overhead involved is somewhat less than one 
page in P1 space, which is not enough to be considered 
significant at present. 


GAS0163 Gerry Smith 30-Jul-1983 
Make the device class and device characteristics of 
SYSSINPUT global. These fields are referenced in a number 
of different modules, and S$GETDVI should not have to be 
called in each module. 


v03-015 MLJ0115 Martin L. Jack, 29-Jul-1983 10:30 
Update for new log file error handling. 


V03-014 GAS0146 Sorry Smith 22-Jun-1983 
Add support for PCBSV_INTER. This bit declares that the 
process is interactive. Thus, there are now five distinct 
classes of process: batch, network, subprocess, interactive, 
and detached. From now on, om process which is to be 
considered an interactive top-level process, must have the 
INTER bit set in PCB$L_STS, otherwise it will be seen as a 
detached process, and Ereated accordingly. This does away 

with all the kludge of SASSIGN/S$PARSE/compare. 


v03-016 


v03-013 wMC0001 Wayne Cardoza 26-May-1983 
Add SYSSLOGIN_DEVICE. 

v03-012 GAS0123 Gerry Smith 19-Apr-1983 
Change to use new SSNDJBC interface. 

V03-011 TMHOO11 Tim Halvorsen 07-Feb-1983 


Make process status flags global, so that they can be 
referenced in another module. 


v03-010 GAS0090 Gerry Smith 15-Oct-1982 
Finish GAS49169. If network or batch process, skip the 
parsing, since the parsing is only rerformed to determine 
whether the process is interactive. 


v03-009 GAS0089 Gerry Smith 5-0ct-1982 


Se ee i ee ee ee ee ee ee ee 
SNAAAAA AA AAA MMII & SEE EEE BWA NN npopononopfonun 2 2 eS 
—DODWNO UN EWP $0 OONOUSWA) "OVO ONOUS WN $0 ODNOAUSWN—ODONOULSWR —OWOAOUM 
SOOO COCOCOCOCOCOCOC COSCO OCO COCO OCO OOOO OCOOC COCO OOO COOOCO OOOO OCOOCOOOOCOOCOOCOOCOO 
ee en ee eee ee ee rr et er eee 
SNA AAA A AAA ADA TUT BS BB BEB BE BAAN nnn ppononununn SS 
=—DOODONO UN EWP $0 OD VOU EWP O OONOA UNE WN O OONOAUFWPR “OVO ONOUFS WAR —"OW;WoOnou 
ee en ee ee ee ee SS I 


Bee Oe Os Be Be Se Oe Ge FH Se Se FH Se Ge BH Se Se Be Se Se Se Be Se Se FH Se Ge SF Sees Oe Se Se FH SH Ss Oe Oe Oe Oe Se Se Oe Oe BH SH Se Se OHSS Se ee HSS Se es 


LOGIN 15-500-1984 93:20:18 VAX-11 Bliss-32 V4.0-742 


4 Page 
DISKSVMSMASTER:CLOGIN.SRCILOGIN.B32;1 (1 


NAUSWN OC OONAUEWN SO OONOULS Wr 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


br Sp tay te ty tc he 4 hart tardy get eer PP Py 


207 


coo 


POPSPONPONGNINNONONONoNoNoNoPoNoNnonofpo nnn 
DONOUES WO OONOULSWN—OO®@ 


PORIPOPONIANNONY 


a nee ieioleiololelelelolelelelelolololelolelolalolololololel oleae a) 
ROMPPOPINININININDD 2 9 9 | “DOOD OOCOOCOCSCO OOOO OOOOOOWWOWOMWMWM0WM0 VAIN NNNNSNS 
DWNAOU SW 0 OONOU EWN 9 OONAU EWN O COONAN WW OOO NOUES WAR OOONOUS Wr 
ed aed ee ee ee en ee ee ed we ce ee i ce ee ce ee a ee ed ee ce ee ae ee ed ed ee ee ee el ed ee ee a ee ee ee ee ee ee ee ee ee ee ee ee ee ed 


POPQPOIPIPONPIPPYNPYIPIPYPIPIPIPIPININPINININININININININININD 2 2 9 9 SS SS SS SS SS 


ee ee ee Te ee eee 


8 3 1 

“Se 

12-808 1 

If the /DISK qualifier was Ht ified, then use that device 
for both SYSS$SCRATCH and SYSSLOGIN. Otherwise use whatever 
is in the UAF as default device. 


¢ 
0 
e 
GAS49169 Gerry S 


Fix the error path for the SPARSE, so that if either 


t 
i . 
SPARSE fails, an error is signaled. This fixes the problem 


of someone ajceqsine a terminal after the job-controller 
initiates a login, bu 


GAS49016 
whose MODEM bit is set, rather than the REMOTE bit. 


GAS0082 Gerry Smith 14-May-1982 
For network processes, if no-authorization bit set, 
allow login if no UAF record found. 


GAS0081 Gerry Smith 12-May-1982 
After network init, check to see if there is a UAF 
record present. If not, signal an authorization 
error and exit. 


GAS0078 Gerry Smith 53-May-1982 
oars the check for job quotas be for interactive jobs 
only. 


GAS0074 Gerry Smith 14-Apr-1982 
Complete the fix for GASO032. It is possible 
to turn off hidden devices, so that either _OPAO: or 
OPAO: is the legal name for the operator console. 
Also fix security hole in which an invalid username 
results in an immediate error message. The correct 
behavior is to prompt for password, then signal an 
error. 


GAS0072 Sorry Smith 13-Apr-1982 
Assign a channel to SYSSINPUT before SPARSEing the 
input and output fields. This is due to the fact 
that REMACP triggers on the ‘‘last de-assign’’ of 

RTAn to determine that the process should terminate. 
The S$ASSIGN keeps a channel open for the duration of 
the login procedure, until SYSSINPUT and SYSSOUTPUT 
get opened as process-permanent files. 


GAS0070 Gerry Smith 5-Apr~1982 
Modify the way that a process is deemed interactive. 
Instead of Di 14 comparing the equivalence names for 
SYSSINPUT and SYSSOUTPUT, perform a SPARSE on the two, 
and compare the DVI fields in the NAM blocks. If the 
two are exactly equal, and if SYSSINPUT is a terminal, 
open only one file for both input and output, and set 
the process to be interactive. 


GAS0051 Seury Smith 23-F eb-1982 
Fix bug that caused terminals not to get hung up if 
/HANGUP was specified. Also, increase size of device 


-1984 01:50:1 VAX-11 Bliss-32 V4.0-742 
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mith 30-Sep-1982 


t before LOGINOUT can grab the terminal. 


Gerry Smith 16-Sep-1982 
When checking for DISDIALUP, make the check for terminals 
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characteristics buffer, to keep it from tromping on 
other data. 
v03-007 o> te Gerry Smith 25-Jan-1982 
Add /CNOJHANGUP to LOGOUT. This causes the terminal 
to drop DTR when the last channel is deassigned from 
it during logout. 
v03-006 PCG0001 


ter Geor 18-Jan-1982 


Pe e 
Call CLISEND_PARSE after L8cout command parsing. 


v03-005 GAS0032 Gerry Smith 07-Jan-1982 
If no SYSUAF.DAT exists, change the check to see if 
the user is logging in on __OPAO: instead of _OPA0: 


V03-004 HRJ0033 Herb Jacobs 11-Dec-1981 
Add time of day and terminal type verification. 
Add support of WSEXTENT from batch queues. 
Fix spooling of batch job if error opening primary input. 
Fix maximization of WSEXTENT from authorize record. 


| 
| 
v003 TMHO003 Tim Halvorsen 11-Nov-1981 
Display different message when logging off from a 
| 
| 
| 
| 
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subprocess vs. the root grecess. 

Set SYSSLOGIN and SYSS$SCRATCH correctly for a subprocess 
by setting it to the Pd nad specified in the UAF record 
rather than the current default directory when the process 
was created, 

Fix transiation of SYSSERROR so it handles the case where 
it has no translation (makes it a null string). 


v002 TMHOO02 Tim Halvorsen 27-Oct-1981 
Allocate LGI region during PPD initialization. Move 
initialization of CLIREG and ORIGUIC here from inituser. 
Do not re-define SYSSERROR if the original SYSSERROR 
translation was not the same as the original SYSSOUTPUT 
translation when the process was created, so that a user 
can pass an ‘‘argument’ to a subprocess via SYSSERROR 
without it getting overwritten. Instead, the original 
SYSSERROR translation is passed as a supervisor mode 
logical name, and the new SYSSERROR (same as SYSSOUTPUT) 
is passed as an executive mode logical name. 


vo001 TMHO001 Tim Halvorsen 29-Jun-1981 | 
Close output file for non-batch jobs (specifically 
network jobs) so that the file is truncated. 
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1 LIBRARY ‘SYSSLIBRARY:LIB'; ! VAX/VMS system definitions 
o86 REQUIRE ‘SHRLIB$:UTILDEF’; : Common BLISS definitions : 
46 REQUIRE ‘SHRLIBS$: INTDEF'; ' CLI common “‘internal'’ definitions 
493 REQUIRE "LIB$:PPDDEF'; ' Process permanent data region 
85 640 REQUIRE 'LIBS:LGIDEF'; ! LOGINOUT-private permanent storage 


: S88 OF12 | | Table of content 

; ! Table of contents 

; 289 ab 1: 

; 290 714 (1 

3; eM Bri? 1 FORWARD ROUTINE 

; 29 rig 1 start, 

3; 0717 1 Login: 

> 294 0718 1 Logout: 

3 499 O78 1 check_job_quotas: 
; 296 720 1 check_user_quotas, 
; 297 0721 1 check_user_hours: 
; 298 7 ¢ 1 check_account_expira 
; 299 7 1 update_uaf_record: 
; 300 0724 1 set_ppd_prot, 

; 301 0725 1 set_sysprv: 

3 0726 1 clear_sysprv: 

; 30 0727 1 clear_log_io: 

> 304 0728 1 validate_uafrec: 

; 305 0729 1 get_uafrec 

; 306 0730 1 rundown cli, 

; 307 0731 1 Logout_message: 

; 308 O° 36 1 handler, 

3 $08 07 1 exit_process: 

; 310 0734 1 clear_creator_cli: 
3 31} 0735 1 set_terminal_fangup: 
: \¢ 0736 1 

: Hi 0737 1! 

; 314 0738 1 ! External routines 

: $12 0739 1! 

, 316 0740 1 

3 Si? 0741 1 EXTERNAL ROUTINE 

; «4418 Ores 1 open. input: 

s 319 07435 (1 close_input: 

3; Jeo 0744 1 open_output: 

s ie 0745 1 close_output: 

: $¢ 0746 1 set_account: 

; 0747 1 init_interactive: 
; 324 0748 1 check_connection: 
3 tee 0749 1 announce: 

: $59 0750 1 tnit_batch: 

S der 0751 1 init_network: 

3 See b236 1 init_user: 

; 4 0753 7 init_cli: 

3 0 bee 1 execute_cli: 

: 331 755 1 create_Togical, 

: 3 0756 1 write_fao: 

3 $3 Brae 1 write_output, 

3; 334 758 #1 terminate_batch: 

: 335 0759 1 sys$setddir, 

: 336 0760 1 lgi$check_pass, 

; Sor 761 1 igi$searchuser, 

; 338 166 1 security_audit: 

; 339 7635 (1 cia_scan, 

; 340 764 1 LgiScmsupr, 

: 341 765 1 ascic_day_of_week, 
: 4¢ 766 1 Lib$day_of_week, 

3: 34 767 1 Lib$hour_of_day, 
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NOVALUE; 
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me ee me ee ee ee me me ee me me me me meme 


Main routine 

Login portion 

Logout portion 

Check interactive job quotas 

Check user and account job quotas 
Check user hourly restrictions 
Check account expiration 

Update the UAF record 

Set page protection on PPD structure 
Set SYSPRV privilege 

Clear SYSPRV privilege 

Clear LOG_IO privilege 
Read/validate UAF record 

Read UAF record without validiation 
Eliminate supervisor mode stuff 
Write logout message 

Condition handler 

Exit the process 

Clear creator's CLI and CLI table 
Set/clear terminal's hangup state 


a primary input fil 
Close primary input fi 
oper primary output fi 
Close primary output file 

Set account name in JIB and P1 space 
Initialize interactive job 

Check for (re-)connection(s) 

Print welcome “ery 

Initialize batch jo step 

Initialize network job 

Initialize user process quotas, etc. 
Initialize CLI image 

Call the CLI image at its entry point 
Create logical name with LNM services 
Write formatted message to output 
Write to prisery output stream 

Stop batch job, optionally spool log 
Set default directory 

Validate password against UAF record 
Read UAF record 

Perform a security audit 

Check for suspect/intruders 

Change mode to supervisor 

Return ASCIC day of week . 

Find which day of the week this is 
Find which hour of the day this is 
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! Allocate virtual memory 


LibSget_vm; 
! 
External storage 


EXTERNAL 


write_output_status, 
input_ reas tp see 


WRITE 7 il s last status 
Input FAB 
Input NAM 
Output FAB 


disk_ Diskname descript 

Flags specified. to " SCREPRC 

Address of CLI code in control region 
Process permanent data region 


! Dynamic system flags 


090909 09 09 C908 NI INNIS NINN NNO OO 
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soaked ~dynamic_ "flags: BITVECTOR; 


EXTERNAL LITERAL 
exe$v_brk_disuser 
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: UNSIGNED (6); ! Set DISUSER if breakin 


BIND 
ppd = ctl$ag_clidata: BBLOCK; 


Address of PPD structure 
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EXTERNAL LITERAL 
cli$ eoeetek’ 
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! 
Define message codes 
| 


seat 
_nosuc ners | 
_invpwd; 
: Macro to set the processor interrupt priority level register 
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SET_IPL (LEVEL) = MTPR (ZREF (LEVEL), PRS_IPL)2; 


VAX-11 Bliss-3 
DISKSVMSMASTER:CLOGIN. 


Macro to setup a GETJPI item List or GETDVI item List 


MACRO 
setu idvi_list2 (ptr) Citem_code, buflen, bufadr] = 

ptr (0,0.16,0] = buflen; 
ptr 12,0,16,0] = item_code; 
ptr [4,0,32,0) = bufadr; 
ptr 8,0, . 2 : 
Pip = ptr + 
NDZ, 


setu idvi_list (buffer) = 
Bed?n 2 
LOCAL ptr: REF BBLOCK; 


ptr = buffer; 
setup_jpidvi_list2(ptr, ZREMAINING); 
END; 


} Flags 

GLOBAL 
pcb_sts: BITVECTOR(32], ' PCB status vleg 
ob_type, ' Job type from JIB 
terminal_device: BYTE INITIAL(false), ' True if SYSSINPUT is terminal 
dev_char_2: eT ! Dev char #2 of SYSSINPUT 
dev_dep_¢d: LOCK{4). ! Dev dep #2 of SYSSINPUT 
subprocess: BYTE INITIAL(false), ! True if subprocess ; 
image_activate: BYTE INITIAL(false), ' True if image to be chained 
break_attempt: BYTE INITIAL(false), ! True if breakin attempt 
dummy : VECTOR C1, BYTE); ! Alignment filler 

OWN 
doing_login: BYTE INITIAL(false), ! True if doing a login 
full_Togout: BYTE INITIAL(false), ' Give full Logout message 
dummy _1: VECTOR C2, BYTE); ! Alignment filler 


' 
Own storage 


OWN 


fail_password buff: Buffer 
. VECTOR Ens 
term_buff: VECTOR (8,8 


phy_term_buff: 


for failing password 


P ! Buffer for terminal name 
Buffer for terminal name 
Buffer for terminal name 
SYSSINPUT buffer 
SYSSOUTPUT buffer 
SYSSERROR buffer 
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eo 


| 
: 458 0882 1 GLOBAL | 
; 6 1 ~° fab: SFAB_DECL L, ' FAB to open UAF 
: ret Be : uaf rab: SRAB_DECL; i RAB to read UAF record 
: 46 B86 1 OWN 
: ret r+ T4 ! rundown abtets nltin gt — ‘ae List for LGISCMSUPR | 
° o Ww , 
: 465 0889 1 | 
; 466 0890 1 GLOBAL 
; 467 0891 1 uaf_record: REF BBLO ! Address of user authorization record 
3 ‘33 $895 ! a Ea yh > VECTOR fiatss username, sire *. ! a © proc was started with 
3 of parent pr 
: rth 0894 : creato?susérnane: VE TOR (2) ; Ad of creating. process 
; +.org_username 
3 rtf +344 ' fail Peseworss Wee lee ; we arpntis, Peer of failing password 
3 a assword_bu 
3 rt Baas ! term_name: VECTOR 2 - +), tT eolaet name string descriptor 
; »_.term_bu 
3 rth 3464 1 phy_term_name: ayia oe C oy tt. Phys terminal name string descriptor 
; ; u 
$ a8 838 : clu_term, set Bib C 2)" icin hs 4}, Cluster terminal name string descriptor 
3 » clu_term_bu 
HP BRT stints tbtaoe 3 STEEL logical zeme ater toutes 
: escriptor 
: 482 0906 1 - NITIAL(ZALLOCATION(sys$input_buf fer), : | 
; 483 0907 1 sys$input_buffer), 
oe so STetQUTE logical came atertoutes 
; utpu escr r 
3; 486 0910 1 . ‘ INITIAL (ZALLOCATION(s gSoutput buffer), seb ns 
: 487 0911 +1 RE buffer 
: o89 SS t . Siokereect P*VEtron “T Syssennor aww 
: escriptor 
: 490 0914 1 . INITIAL (ZALLOCATION(SysSersoe betierse 
3; 491 0915 1 sys$error_buffer); 
; 49 0916 1 
; 49 0917 +1 sachet 
3 494 0918 #1 bell 


27; 
| 
| 


Be Se Se Be Se Be Oe Se Se Oe Se Oe BH Se Be Se Se SHS Se Sse Se Be Se Se Se Se SHS Se oe Be Se SESH Se SH Se ee SH Se Se eee SSF ee Se Se SE Se ee Fe Seas tease 


3; 4 919 1 ROUTINE start = | eS 
3 ri 920 1 ; 

: $38 921 1 !<-- Ee 
3 § 9 § 1! ° 

; 230 9 1! This is the main entry point to the image. The login data structure oa 
; 501 9246 1! is examined in the control region to determine if this is a login or | 
3 oe 925 1! a logout operation. : 

a: 82 § 1! : 

; 304 9 1 ! Inputs: a 
; $05 0928 1! 4 
; 306 0929 1! None ee 
3 rd 930 1! . | 
: 308 931 1 ! Outputs: : 

; 509 9 $ 1! is 
; 310 09 7} None os 
s ST} 0934 1 !<=- - 
3 21§ B32 1 = 
; 51 0936 2 BEGIN 7 
> 514 0937 : 

; 515 0938 2 BUILTIN FP; : 

; 516 0939 
a ee 0940 : ‘ 

; 518 0941 ' Establish condition handler 31 
; 519 094 i 21 
; 520 094 .fp = handler; ! Establish condition handler : 1 
; 521 0944 3 1 
; $5 é 0945 ' 21 
: $ 0946 2 |! Get job status flags to determine type of job. 21 
; 524 0947 ! : 1\ 
3; Ses 0948 3 BEGIN 2 1 
: 526 0949 71 
3; jer 0950 3 LOCAL : 21 
; 528 0951 dev_class, ! Device class of SYSS$INPUT 21 
; 2$7 0326 item_list: SITMLST_DECL(ITEMS=5); ! GETJPI/GETDVI item List ; tt 
; 531 P 0954 3 SITMLST_INIT(ITMLST = item_List, 2 1 
: 532 P0955 3 (ITMCOD = jpi$_username, : 1 
3 Sao P 0956 BUFSIZ = uaf$S_username, : 1 
3; 534 P 0957 BUFADR = org_uSername, 7] 
: $35 P 0958 ETLEN = creator_username), 31 
; 536 P 0959 (ITMCOD = jpi$_sts, 31 
; 537 P 0960 UFADR = pcb_Sts), i] 
; 538 P 0961 (ITMCOD = jpi$_jobtype, : 1 
; 539 P 0968 BUFADR = job type), : 1 
; 540 P 096 (ITMCOD = jpiS_owner : 1 
> 541 0964 BUFADR = parent_pid)); 37 
; at§ 0965 ee | 
; 54 0366 pcb_sts = 0; : 1 
3 546 096 job-type = 0; 31 
3; 545 0968 3 parent_pid = 0; 3] 
; 546 0969 ch$filT (* *, uaf$s_username, org_username); 3 1 
3 see 2300 return_if_error(SGETJPIW(ITMLST =~item_list)); ! Obtain PCB flags | : , 
; is a6 subprocess = (.parent_pid NEQ 0); ! Mark if this is a subprocess or not | : : 
: 551 97 3 
gs 332 0975 ! Get characteristics and names of the SYSSINPUT device. Believe the 31 
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s 933 376 ! SYSSINPUT a | by for logins, but use the name from the PPD for Logouts. 
; 2 4 } This information is for later use throughout LOGINOUT. 

: $ P 0379 SITMLST_INITCITMLST = item_List 

: P 0980 (ITMCOD = dvi$-devclass, 

; 558 P 83 1 BUFADR = dev_Cclass), 

; 59 P 09 ¢ (ITMCOD = dvi$_devchar2, 

; 560 P 09 BUFADR = dev_char_2), 

; 561 P 0984 (ITMCOD = dvi$ devgepend2, 

3 206 P 0985 FADR = dev_dep_2), 

; 56 e 388 (ITMCOD = dvi$_devnam 

; 564 p 38 BUFSIZ = ZALLOCATION(term_buff), 

3 26? P 0986 BUFADR = term_buff 

; 566 P 0989 ETLEN = term_name(0]), 

3 er P 0990 (ITMCOD = dvi$_tt Royreynes. 

; 568 P 0991 BUFSIZ = ZALLOCATION(phy_term_buff), 

; 569 P $338 BUFADR = phy_term_buf f 

3; 370 099 RETLEN = phy_term_name(0J)); 

: Of 0994 

; 278 0995 dev_class = 0; 

; 57 P 0996 ; IF SGETDVIWCITMLST = item_list, 

; 574 P 0997 DEVNAM = (IF pect podsy size] EQ. 0 

s 379 099 ; THEN ZASCID 'SYSSINPUT’ 

; 576 P 0999 ELSE 

3; Of7 P 1000 3 (LOCAL devnam desc : VECTOR(2); - 
; 578 P1001 3 devnam_desc(O] = .ppd($BYTEOFFSET(ppd$t_inpdvi).0,8,0); 
; 579 P 1002 3 devnam_desc(1] = ppdippd$t_inpdvi] + 1; 

; 580 P 1003 3 devnam_desc) 

3 381 1004 4 )) 

; 582 1005 3 AND .dev_class EQL dc$_term 

s 385 1006 3 THEN 

; 584 1007 4 BEGIN ; 
; 585 1008 4 terminal_device = true; ! It is a terminal device 
; 586 1009 4 IF phy ferm_name(0) EQL 0 ! If no physigat name, 

; 587 1010 4 THEN CHSMOVET(phy_term_name(0] = .term_name(0J), ! Set one 

> 588 1011 4 term_buff, phy_term_buff); ! from original 

; 589 p 1018 4 SITMLST_INITCITMLST = item_Tist, 

5 P1013 4 (ITMCOD = dvi$_fulldevnam, 

; 591 P1014 4 BUFSIZ = ZALLOCATION(clu_term_buff), 

: o36 P1015 4 BUFADR = clu_term_buf 

; 59 1016 4 RETLEN = clu-term-name(0))); 

> 59% P1017 4 return_if_error(SGETDVIW(TTMLST = item List, 

: 595 1018 4 DEVNAM = phy_term_name)); 

; 239 1019 4 END 

: 59 1020 3 ELSE 

; 598 1021 4 BEG! 

; 599 10 § 4 terminal_device = false; ! Not a terminal device 
; 600 10 4 dev_char_2 = 0; ! Ensure characteristics 
; 601 1024 4 dev_dep_2 = 0; ! and dependent bits are null 
; 606 1025 4 term_name(0) = 9: ! Ensure 

; 60 10 § 4 phy_term_name(0) = 0; ' terminal names 

; 604 10 4 clu_term_namel0] = 0; ! are null 

; 605 1028 ; 3 

; 606 1029 

; 607 1030 END; 

; 608 1031 

; 609 1032 : 
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Drop the installed SYSPRV privilege, unless the parent is authorized, 
so that random caller's of this program cannot use its privileges to 
create files in a privileged qi rog tory. Note that the caller may be 
the job controller, which initializes the process with all privileges 
in order to ensure that the terminal is accessible even though it has 
device protection. 


ee 


i 
! zero page. We can simply test the lengt the structure to determine 
} if its already been set up. If so, its a logout operation 


co (doing_login = (.ppd Cppd$w_size] EQL 0)) ! If already initialized, 
Logout () 


then invoke logout portion 


login); else, initialize user job 
RETURN true; 


END; 
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clear_sysprv(); ! Drop SYSPRV privilege 
' 
Assume that when the process is pate tet ty severed. the PPD is a demand 
re) 
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TITLE LOGIN 
-IDENT \V04-000\ 
-PSECT $PLITS,NOWRT,NOEXE,2 
00 00 00 54 55 50 4&€ 49 24 53 59 53 00000 P.AAB: .ASCII \SYSSINPUT\<0><0><0> : 
010E0009 QO00C P.AAA: .LONG 17694729 : 
00000000" 00010 -ADDRESS P.AAB : 


.PSECT $OWNS,NOEXE,2 
00 00000 DOING_LOGIN: 


00030 PHY TERM BUFF: 
00038 CLU_TERM_BUFE : 
00048 SYSSINPUT BUFFER: 
000C8 SYSSOUTPUT_BUFFER: 


.BY 0 
00 00001 FULL_LOGOUT: 
-BYTE 0 : 
00002 -BLKB 
000% DUMMY. 1: -BLKB 
0 -BLK 
0008 FAIL_PASSWORD_BUFF : 
-BLKB 31 
0008? -BLKB 1 
00028 TERM_BUFF : . 
8 
16 


413 
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LOG 


-BLKB_ 128 
00148 SYSSERROR BUFFER: 
-BLKB 128 
00000002 001C8 sateen 1 


«LONG 2 
000000vV O01C eADDRESS RUNDOWN_CLI ; 
80000000" 8015 t0NG 0 ee 


~PSECT $GLOBAL$,NOEXE,2 

00000 PCB_STS:: 
00004 JOB_TYPE:: 8 
00 00008 TERMINAL Bile 


LKB 


00009 
QOO00C DEV_CHAR np 
00010 DEV_DEP_2:: 
-BLKB 
00 00014 peatemsed 
00 00015 IMAGE_ACTIVATE:: 


00 00016 BREAK_ATTEMPT:: 
BYTE 


W050 OC OF FF WOR & 


00017 ‘8 
00018 DUMMY:: “BLKB 
0001C UAF_FAB:: 
0006C UAF_RAB:: 
“BLKB 
00080 UAF_RECORD: : 
00084 ORG_USERNANE : 
000D4 PARENT PID: : 
00000000 00008 CREATOR -USERNAME : 
0000000' o000D¢ :ADDRESS ORG_USERNAME : | 


wo fF Oo 
nm co 


0 
00000000 O00E0 FAIL_PASSWORD: : : | 
00000000" 000E4 “ADDRESS FAIL_PASSWORD_BUFF : | 
00000000 000E8 T NAME : , 
0000000° gee “ADDRESS TERM_BUFF : 
0000000 O00FO PHY_TERM NAME ; 
0000000" 000F4 “ADDRESS PHY_TERM_BUFF : | 
SSOH08" BHBFS cau rem ARReSS | 
00000000' 900°. “ADDRESS CLU_TERM_BUFF : 


00 SYSSINPUT_ATTR:: 
-BLKB 
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00000080 00104 SYSSINPUT:: 


00000000" 00108 
010C SYSSOUTPUT _ATTR:: 


-B 
00000080 00110 syssouTPUT:: 


00000000" 00114 
0118 SYSSERROR_ATTR: 


K 
00000080 0011C SYSSERROR: : 
00000000" 00120 


0000 START: .WORD 
000 M 
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- LON 128 
-ADDRESS SYSSINPUT_BUFFER 
~LON 128 
“whit tr SYSSOUTPUT_BUFFER 


«LON 128 
-ADDRESS SYSSERROR_BUFFER 


OPEN_INPUT, CLOSE_INPUT 
OPEN~OU tput, CLOSE_OUTPUT 
INIT. INTERACTIVE 


C. LG1S-ACNTEXC 


$"BA 
Cf + GIs IAPUTERR 
x14 LGIS_PWOEXPIR 


SCODES ,NOWRT,2 

Save R2 RS R4, hd R6,R7.R8.R9 
SYSSGETOVI 

fERR ie 


Dd.” 
PHY em. ware. R6 
~76TSP) 
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LOGIN 16-Sep-19 4 01:50:1 VAX-11 Bliss-32 V4.0-742 Page 16. 
v04-000 14-Sep-1984 04:20:48 DISKSVMSMASTER:CLLOGIN. SRCIJLOGIN.B32:1 °° (3) 
cs 9 A? 9E 0004 MOVAB PPD+41, DEVNAM_DESC+4 : 
5 3 AE 3f 9 MOVAB DEVNAM_DESC. RO ; 
3 DD OOFD 4$ PUSHL R : 
C OOOFF CLRQ.  =(SP) : 
69 Q a: 4 1 CALLS #8, SYSSGETDVIW ; 
45 E9 00104 BLBC : ; 
00000042 «8 ge D1 0107 CPL DEV_CLASS, #66 + 1005 | 
FFIB C6 07 46 0119 MOVB #1, TERMINAL_DEVICE + 1008 
36 3 B19 gsik PHY_TERM_NAME : 1009 
50 FB As D bori9 MOVL TERM NAME + 1010 
66 50 D 0110 MOVL_ RO, PHY_TERM_NAME : 
08 As 68 50 g 0120 MOVC3 RO, TERA_BUFF, PHY TERM_BUFF ; 
50 OC AE SE 00125 5$ MOVAB ITEM List. SSITMBLRPTR + 1016 
BO 00E80010 8F DO 00129 MOVL  #15204368, ($SITMBLKPTR)+ : 
80 10 A& 9E 00130 MOVAB cLU_TERM_BUEF. ($$ITMBLKPTR) + : 
80 08 A6 SE 00134 MOVAB CLU-TERM-NAME, ($$ITMBLKPTR)+ : 
BO D4 00138 CLRL ($$TTMBLRPTR)+ : 
7E 7C 0013A CLRQ = = (SP) + 1018 
7E 7C€ 0013¢ CLRQ = = (SP) : 
1¢ AE OF 0013E PUSHAB ITEM_LIST : 
56 DD 00141 PUSHL R6 ; 
7E 7C 00143 CLRQ. (SP) : 
69 08 FB 00145 CALLS #8, SYSSGETDVIW : 
11 50 €8 00148 BLBS § STATUS, 7$ : 
04 00148 RET : 
FF18 C6 94 O0014C 6$ CLRB =‘ TERMINAL_DEVICE > 1022 
FFIC C6 7C 00150 CLRQ DEV_CHAR 2 : 1023 
FB AB D4 00154 CLRL ALN + 1025 
66 D4 00157 CLRL PHY_TERM_NAME 3 1026 
08 A6 D4 00159 CLRL. = CLUTTERM~NAME + 1027 
0000v CF 00 FB 0015C 7$ CALLS #0, CLEAR_SYS®RV > 1041 
50 D4 00161 CLRL —_ RO > 1049 
67 BS 00163 TSTW PPD : 
02 12 00165 BNEQ 8$ ; 
50 D6 00167 INCL RO : 
D8 «AB 50 90 00169 8$ MOVS RO, DOING_LOGIN : 
07 50 £8 90160 BLBS _—- RO. : 
0000v CF 00 FB 0170 CALLS #0. LOGOUT : 1051 
05 11 0017 BRB 10 ; 
0000v CF 00 FB 00177 9 CALLS #0, LOGIN : 1053 
50 01 pO 0017C 10$ MOVL #1. RO : 1055 
04 0017F RET : 1057 


; Routine Size: 5384 bytes, Routine Base: $CODE$ + 0000 
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3 § 1058 1 ROUTINE login: NOVALUE = 

; 839 1985 i . 

; 638 1060 1 !<-- 
; 639 1061 1! 

; 640 1906 ie Determine the username and initialize all process context 

; oe Hit : to correspond to the user authorization Limits and quotas. 

; 64 1065 1 ! Inputs: 

> 644 1066 1! 

> 645 1067 1! None 

: 646 1068 1} | 
; 647 4 1 ! Outputs: 

; 648 1070 1! 
; 649 1071 1! routine = status (already signaled) 

; 650 1076 1 !eee 

3; 651 10735 1 

: O26 1074 2 BEGIN 

3; 6) 1075 2 | 
> 654 1076 2 EXTERNAL LITERAL 
3. 635 1077 ctl$c_clidatasz; ! Size of storage area in P1 space 

; 656 1078 2 

; 657 1079 2 LOCAL 

; 658 1080 2 status, 

; 659 1081 2 time: VECTOR (2), ! Buffer for current time 

; 660 ee 2 igi: REF BBLOCK; ! Address of LGI area 

; 661 1083 2 

; 663 1088 eas d Cppd$q_clireg]: VECTOR; ! Ref 2 t d 

; clireg = ppd Cppd$q_clireg]: ; ! Reference as ongwords 

: 664 1086 2 , : : 
; 665 1087 2! 

; 666 1088 2 ! Change the page protection on the PPD structure to allow user mode 

; rot 24 § write access, so that this program may run primarily in user mode. 

; 669 P 1091 2 status = SCMEXEC(ROUTIN = set ppd_prot, ! Set PPD page protection 

; 670 1936 2 ARGLST = prt$c_uw); 

; 671 1095 2 IF NOT .status THEN SIGNAL_STOP (.status); 

; 672 1094 2 

3; 673 1095 2! 

; 674 1096 2 ! Translate SYSS$INPUT, SYSSOUTPUT, and SYSSERROR. 

; 675 1097 2! 

; 676 1098 

s 677 1099 BEGIN 

; 678 1100 

: 679 1101 LOCAL , , 

; o30 1136 trninm_item_list : BLOCK(2*3+1,LONG); ! Item List for 2 items | 
; 68 1104 trninm_item_listl0O, 0.16.0) = 4; : . 

; 68 1105 trninm_item_list(0,16,16,0] = Lnm$_attributes; ! Fetch name's attributes | 
; 684 1106 trninm_item_List(1, 35°03 = sys$input_attr; 

; 685 1107 trninm_item_listl2, 0,32.0)] = 0; 
3: 686 1198 trninm_item_list(3, 0,16,0) = .sysS$input(0); 

3; 687 1109 trninm_item_listl3,16,16,0] = Lnm$_string; ! Fetch name's value string | 
; 688 1110 trninm_item_list(4, 0,32,0) = .sysS$inpu fi; 

: 689 1111 trninm_item_list(5, 0.32.0] = gys input 33 
3 o30 1116 trninm_item_listl6, 0,32,0) = 0; 

3; 692 P 1114 status = STRNLNM(TABNAM = ZASCID ‘LNMSPROCESS_TABLE', ! Translate SYSSINPUT 
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; 693 P1115 LOGNAM = XASCID 'SYSSINPUT’, zt 
> 694 1318 ITMLST = trninm_item_List); [4 
; 695 111 IF NOT .status a 
; 238 1138 THEN SIGNAL_STOP(.status); 74 
; 698 1120 3 trninm_item_Llist |. 32.0) = sys$output gtr: : ! 
; 699 1121 trninm_item_list(3,0,16,0] = .sys$output([0); 4 
: 700 11 ¢ trninm_item_listl4, 3 ; = .sysSoutputl1); 24 
: 49 13 ? trninm_item_listl5, = sys$outputl0); 4 
3; P 1125 status = STRNLNM(TABNAM = ZASCID 'LNMSPROCESS_TABLE', ! Translate SYSSOUTPUT : ! 
> 704 P 1126 LOGNAM = ZASCID ‘SYS$OUTPUT', . 4 
3 705 1127 ITMLST = trninm_item_List); . 

; 706 1128 IF NOT .status ‘ I 
; Ade 1 ; THEN SIGNAL_STOP(.status); 24 
; 709 11g) trninm_item_listl1,0,32,0] = sys$error_attr; : } 
: 710 11 ¢ trninm_item_list(3,0,16,0] = .sys$error(0J; ‘ 

3 7ii 113 trninm_item_list 2-8 -36 -0 = .sys$error(1]; ‘ 1 
; ie 1136 3 trninm_item_list(5,0,32,0] = sys$error(0); ; ! 
3 714 P 1136 3 status = STRNLNM(TABNAM = ZASCID 'LNMSPROCESS_TABLE', ! Translate SYSSERROR i] 
> 715 Py? 3 LOGNAM = ZASCID 'SYSSERROR', sf 
; 716 1138 ITMLST = trninm_item_List); ‘ 

; 717 1139 3 IF NOT .status ! If no translation, :] 
; 718 1140 3 OR .status EQL ss$_notran : : 
; 719 1141 TH : 

; 720 1142 sys$error(0] = 0; ! then make a null string : 1 
> 721 1143 3 :] 
i 722 1144 2 END; : 
s fee 1145 2 ; 

> 724 1146 2! : 1 
; 123 1167 3 | Inititalize the process permanent data region : : 
s Tet 1149 2 ppd Cppd$w_size) = ppd$c_length; ! Initialize with static length : 1 
; 728 1150 2 lgi = ppd * ppd$c_Length; i Allocate LGI area just after PPD i] 
> 729 1151 2 ped Cppd$t_lgi] = 49 : i Store pointer in PPD i] 
; 1138 2 clireg ti = + + gi$c_Length: ! Allocate CLI storage after LGI ; 1 
; tai 1187 clireg (OJ = ctl$c_clidatasz - ppd$c_length - lgi$c_length; ‘ : 
3 £35 1155 2! , :1 
3 oye 1136 : Store the original name of SYSSINPUT in the PPD region : ! 
: 736 1158 VECTOR CppdCppd$t_filename], 0; ,BYTE] = .sys$input{0] + 1; 3 7 
s gor 1159 ChsmovE Ce sys6npufLOJ> ' | 

; 738 1160 Seas tteut 1], 

3; 739 1161 ppd(ppd$t_filename) + 1); 

: 740 1306 

: 741 116 4 

: 742 1164 ! Determine if the job is interactive. 

3 oi 1182 If not interactive, set the mode bit. 

3: 745 11869 IF NOT .ctl$ .eronre. flagslorciy_ inter? ! If not interactive, 

: 746 1168 THEN ppd Cppd$v_mode]™= true; ! mark non-interactive job 

: 747 119% 

; 748 1170 ! , 

3; «(749 1171 ! Change the STARTUP process's account name to the special start up | 
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] 
; re 1128 ! account name (a binary null followed by ‘<start>’') in order to 
3 f 1 W107 generate a SYSINIT accounting record. 
; ' | 
; f § 1302 The STARTUP process is detected by: 
s 795 1199 ' Not a subprocess | 
; 756 1178 ' No terminal 
3 or 1179 ! Username is ‘'SYSTEM'' 
; 758 in : Account name is all binary nulls 
; 759 1181 } 
; 760 1186 BEGIN 
; 761 118 BUILTIN 
; £6 1184 SKPC; 
: 76 1185 EXTERNAL 
: 764 1186 ctl$t_username, 
; 765 1187 ctl$t_account; 
; 766 1188 if NOT .subprocess 
; 767 1189 AND NOT .terminal_device 
; 768 1190 AND CHSEQL(jib$s_Username, ctl$t_username, 6, UPLIT BYTE('SYSTEM'), ° ") 
: 769 1191 3 AND NOT SKP CERF (OS REF (J ibSs= account), ctl$t_account) 
; 770 a 1198 ; THEN SCMKRNL (RO = set_account 
: 771 119 ARGLST = RASCID XSTRING(ZCHAR(O), "<start>")); 
; rr 1194 END; 
s. oe 1195 
: 774 1196 ! 
; or? 1130 § Perform initializations specific to the type of job. 
3 7 1199 2! The woe special account names (all starting with a binary 
; 778 1200 2 ! null) are set in order to generate correct LOGFAIL accounting 
: 44s 130) 2 records if there is an authorization failure: 
; «(781 1503 $ : <batch> Batch job login failure 
; «78 12046 2! <det> Detached process login failure 
; 78 1205 2! <login> Interactive login failure 
3; «784 1206 § : <net> Network login failure 
3; 785 1207 ! 
3; «4786 1208 2 SELECTONE true 
3; 787 1209 2 OF 
: 788 1210 2 SET 
3; 789 1211 2 ! - 
3 as \el¢ § If batch job, ask job controller for job parameters 
; 79 isha bontieat creprc_flags(prc$v_batch]): | 
; 79 1$12 BEGIN 
3 794 1216 SCMKRNL(ROUTIN = clear_creator_cli); 
oe. P 1217 SCMKRNL(ROUTIN = set_account 
: 79 1218 ARGLST = ZASTID ZSTRING(ZCHAR(O), ‘<batch>')); | 
; 1219 init_batch(); 
; 798 1220 END; 
; 799 1221 
; 800 1 ¢ ! 
3 it : 7 If network job, process NETACP parameters 
3 805 : 5 b.ctisal crepre_flegslorcSv_neturks): 
; 805 1 § IF NOT .ctl$gl_creprc_flags(prc$v_nouaf] 
; 806 1228 THEN 
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: 807 1229 4 BEGIN : 1 
; 808 12350 4 SCMKRNL(ROUTIN = clear_creator_cli); 2 4 
; 809 P1231 4 SCMKRNL(ROUTIN = set_account | 24 
: 810 3 4 wr ARGLST = XASCID XSTRING(RCHAR(O), ‘<net>")); | ef 
; gig 1234 init_network(); ; ! 
; 81 1235 END; ‘ 

; 814 1236 | sf 
; $12 1237 ‘ ‘ 

: 816 1238 i If sub-process, open SYSSINPUT and SYSSOUTPUT. 2 
; 817 1239 i Pl cells will be used later on to get the CLI name, CLI table . 4 
; gig 1240 ! name, and UAF flags. 24 
3 $38 : rp Note that this test must preceed the following two. ° 4 
; 821 1 rk C.subprocess<0,1>]: ‘ } 
3 BS¢ 1244 N ‘ 

3 «(Ge 1245 SCMEXEC(ROUTIN = open_output); ! Create output file first so that ° } 
; 824 1246 ! error messages can be written ‘ 

; 825 1247 SCMEXEC(ROUTIN = open_input); ' Create input file ‘ 1 
: 826 1268 3 END; : 1 
; 827 1249 i] 
; 828 1250 2 7] 
; 829 1251 § ! If interactive hee initiated by unsolicited input from a terminal, :] 
; Sat 1526 § ; prompt the terminal for job parameters, and check for job quotas. ° : 
3 O36 1254 2 C.ctl$gl_creprc_flagsCprc$v_inter] ‘ 1 
: th 1522 ¢ and not ct $gl_creprc_flagsCprc$v_nopassword]): | : 1 
; 835 1257 3 SCMKRNL(ROUTIN = clear_creator_cli); 

; 836 P1258 3 SCMKRNL(ROUTIN = set_account , 

; 837 1259 3 ARGLST = ZASCID XSTRING(XZCHAR(O), "<Login>")); 

; 838 1260 ; init_interactive(); 

; 839 1261 check_connection(); | 

; 840 1506 3 check_job_quotas(); 

; 841 126 § END; 

; «84 1264 

; 84 1265 § : 

3: 844 1266 ! Any other process is considered a detached one. 

; 845 1267 2 ‘ 

; 846 1608 COTHERWISE): 

; 847 1269 

; 848 1270 IF NOT .ctl$gl_creprc_flags(prc$v_nouaf] 

; 849 1271 3 THEN | 

; 850 1s7¢ 4 BEGIN 

; 851 1275 4 SCMKRNL(ROUTIN = clear_creator_cli); 

3 S26 P iste 4 SCMKRNL(ROUTIN = set_account 

; 85 1275 4 ARGLST = ZASCID ZSTRING(XZCHAR(O), "<det>")); 

; 854 1576 4 et_uafrec(); 

3 O32 1277 4 F_.uaf record EQL 0 : 

: 856 1278 4 THEN SIGNAL_STOP(lgi$_userauth); ! signal fatal error 

; 857 $44 3 END; 

; 858 1280 END; 

; 859 1$3) TES; 

; 860 1 Ht 

: 1 12 : 

; 66 \see Check user job Limits based on current process counts 
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>; 864 1 § IF .uaf_record NEQ 0 ! If a UAF record 
; 865 1 THEN 
3 08 1288 IF .uaf_record pustsu.nexjobs NEQ 0 ! with job Limits | 
; yd ! Sf OR .uaf_record Cuaf$w_maxacctjobs] NEQ 0 
; 869 1291 BEGIN ! check Limits now, at raised IPL | 
; 870 1 35 status = SCMKRNL(ROUTIN = check_user_quotas); 
; &ri 129 IF NOT .status 
3 are 1294 THEN SIGNAL_STOP(.status); ! signal fatal error 
3 87 1295 END; 
; 874 1 38 
: af? 129 : 
; 876 1298 ! Check account expiration, password expriation, user hourly restrictions, 
; S77 1299 ! DISUSER flag, and terminal Line types. ALl these checks are waived for 
; 578 ! BY : the system manager logging in on the console terminal. 
; 880 1 ¢ IF .uaf_record NEQ 0 ! If a UAF record 
; 881 130 THEN 
; 88 1304 BEGIN 
3 it 1306 ? SGETTIM (TIMADR = time); ! Get current time | 
; 885 1307 4 CHSNEQ(uaf$s username, uaf record Cuaf$t_username], 
; 886 1308 4 6, UPCIT BYTE('SYSTEM'), ' ") 
; 887 1309 4 OR 
; 888 1310 4 et term_name [0], -phy.tera_nene CiJ, 
; 889 1311 4 6, UPLIT BYTE('_OPAO:”) 
; 890 1 \¢ 4 
; «891 1313 3 THEN 
; 89 1314 4 BEGIN 
; 1315 5 ow. ! Check password expiration 
; 894 1316 5 -uaf_record Cuaf$v_pwd_expired] 
; 895 1317 5 
: 896 1318 5 -uaf_record Cuat$v_pwd2_expired] 
; 897 1319 5 ) 
: 538 1330 ? THEN SIGNAL_STOP (Lgi$_pwdexpir); 
: 900 1356 4 IF .uaf_record(uaf$v_disacnt] ! Check DISUSER flag 
: 901 1323 4 THEN SIGNAL_STOP (Lgi$_notvalid); 
: 902 1324 4 check_account_expiration(time); ! Check account expiration 
; 903 1325 4 check_user_hours (time); ! Check hourly restrictions if any 
: 904 1326 3 D; 
; 905 1327 END; 
: 906 1328 
: 907 3 9 ! , ‘ 
; aoe 1330 : If interactive login write a messages announcing successful login. 
; 910 1336 IF .ctl$gl ecepre.flagstorcsy. inger’ | 
; 911 13 AND NOT .cELS$gl_creprc_flagslirc$v_nopassword) 
: aig 1334 AND .uaf_record NEQ 0 
; 91 1335 THEN | 
> 914 1 § announce(); 
o 915 1 ; | 
; 21g 1338 : 7 
; v 1339 ! Initialize the CLI image into P1 space 
: 919 1341 ~itfexs , 
; 920 1342 IF NOT .image_activate ! If not activating a single image, | 
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; $33 13ce § THEN te cute ! Initialize CLI i | 
; nit c 3 ! Initialize mage 
; 9 g 1345 : 
; 924 1 rk ! , 
3 3 ? : 2 Set the process quotas, privileges and UIC from the UAF record | 
; 927 1 rk 
; 928 1350 IF .uaf_record NEQ 0 ! If _UAF record is valid, 
; 929 1351 AND NOT .ctl$gl_creprc_flagsCprc$v_nouaf] ! and uaf init. enabled, 
: 950 1 26 AND NOT .subprocess ! or if this is not a sub-process, 
3 931 135 THEN 
3 836 1 2 BEGIN 2 
; ¢ 1355 igi Clgi$l.origuic] = .uaf_record Cuaf$l_uic]; ! Save original UIC 
; 934 1356 init_user(J; ' Initialize user context | 
> 935 1357 2 ND; 
: 936 1358 
; 937 1328 ’ 
; 938 1360 ! Open the input and output files under the user's UIC and privileges. 
; 939 1361 : 
; 940 1366 
; 941 136 IF .input_fab Cfab$w_ifi] EQL 0 ! If not already done, 
; nk 1308 THEN 
; 94 1365 BEGIN 
3 944 1366 SCMEXEC(ROUTIN = open_output); ' Create output file first so that 
> 945 1367 3 ! error .~ e can be written 
: 946 1368 3 SCMEXEC(ROUTIN = open_input); ! Create input file 
> 947 1369 2 END; 
: 948 1370 § 
> 949 1371 ! 
; 950 1372 2! If the creating process passed SYSSERROR as something different than 
; «951 1373 ! SYSSOUTPUT, then the or taine value of SYSSERROR is passed as 
$ 926 1374 ! a supervisor mode SYSSERROR Logical name, so that this process 
; 1375 ' can obtain the value. This is used by the DCL SPAWN command 
3 954 1376 !' to pass a context orgesent to the subprocess - but yet it wants 
s 93 1377 ' the executive mode SYSSERROR (the permanent one) to be set equal 
; 956 1378 2 ! to SYSSOUTPUT (so that we don't get two output streams on SPAWNed 
3 +44 1379 ; | jobs). 
: 959 1384 | 
; 960 1356 IF .subprocess ' For subprocesses 
: 961 138 AND sSysserror [0] NEQ 0 ! with non-null SYSSERROR, | 
3 4) 1384 AND CHSNEQ(.sys$error (0), .sys$error (1) ' If original SYSSERROR 
3 oer EH —_ -sys$output (05, -Sys$output C13, 0) ' Nea original SYSSOUTPUT, 
; 965 1387 create_logical(ZASCID "SYSSERROR', ! Define supervisor SYSSERROR 
: 206 1388 sys$error, ! as original SYSSERROR 
; 96 1389 psl$c_super); 
; 968 1390 
; 969 133) ! 
$ 14 : 35 : Create SYSSLOGIN, SYSSLOGIN_DEVICE, SYSSSCRATCH Logical names 
3 ars 139 
; 92 1395 IF .uaf_record NEQ 0 ! If UAF record valid, 
: 974 1 36 THEN 
; 975 139 BEGIN 
> 976 1398 LOCAL | 
: 977 1399 buffer: VECTOR (80,BYTE], ! Buffer for SYSS$LOGIN 
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: 978 1400 bufdesc: VECTOR £32. ! Descriptor of above buffer $1 
3 44s 193) devdesc: VECTOR : i Descriptor for device name ; ! 
; 981 1208 IF .disk_nameC0) EQL 0 ! If no disk specified, ; } 
; 98 1404 THEN ' use the default in the UAF 74 
; 98 1405 4 BEGIN 3} 
>; «6984 1406 4 bufdesc = CHSRCHAR(uaf_record Cuaf$t “$e fot): 2 
: 985 1407 4 * CHSRCHAR (ua f_ “record Cuaf$t_defdirJ) : 4 
; 986 1408 4 bufdesc [1] = buffer .4 
; 987 1409 4 devdesc 9 = CHSRCHAR(uaf_record Cuaf$t_defdevJ); 2 
: 988 1410 4 devdesc = buffer; | : 
: 990 141g 4 CHSCOPY (CHSRCHAR (ua - record. Cuaf$t_defdev]), :] 
> 991 1413 4 record VTEOF FSET (uat$t defdev) + 1,0,0,0], | : 1 
: 998 1414 4 CHSRCHAR ak f-record Cuaf$t defdiry). :] 
: 99 1415 & SBYTEOFFSET(uaf$t_defdir) + 1,0,0,0], :] 
> 99% 1416 4 0, ZALLOCATTON( batter). white : 1 
; 995 1417 4 ; 

: 996 1418 3 ELSE ' Otherwise, use the disk | | 
> 997 1419 4 BEGIN i specified at login 21 
; 998 1420 4 bufdesc [0] = .disk_name(0) | : 1 
: 999 1421 & + CHSRCRAR ua t _record Cuaf$t_defdir]); :] 
: 1000 14 ; 4 bufdesc [1] = buffer | ; | 
: 1001 14 4 devdesc = ndisk rpame(0); . 

: 1002 14e6 4 devdesc [1] = buffer; | 3:1 
: 1003 1425 4 : 1 
5 1004 1426 4 CHSCOPY(.disk ~fane 0), a. 
3 1005 1427 4 .disk~namel1], : 1 
3 1006 1428 4 CHSRCAAR Cuat record Cuaf$t_defdir]), : 1 
: 1007 1499 4 uaf record CS$BYTEO FSET (uat$t ‘det dir) + 1,0,0,0], :] 
: 1008 1430 4 aT PALLOCATION (buffer). buffer); :] 
: 1009 1431 : END; : 1 
: 1010 1438 s 
: 1011 1433 4 BEGIN : 1 
3 1018 1434 4 3 1 
: 101 1435 4 ‘+ : 1 
3; 1014 1436 4 i Normally, we wouldn't have to use SCMEXEC to create executive : 1 
> 1015 1437 4 i mode logicals as LOGINOUY is installed with SYSNAM privilege 31 
: 1016 1438 4 i but, the INIT_USER() routine above has established the user's 31 
: 1017 1439 4 { authorizes privileges, which may not include SYSNAM. : 1 
: 1018 1440 4 | s 1 
3 1019 1441 4 3 1 
3 1020 eae 4 LOCAL | :] 
: 1981 1443 4 create_arglist : VECTOR(6); | 21 
71 ¢ 1444 4 s 1 
3; 102 1445 4 create_arg'istic! = 5; ' 5 args to ‘create_logical’ 

: 1024 rg 4 create_arclist 3 = psl$c_exec; ' Exec mode definitions 

3 196? 1447 4 create_arclist(4) = 0; ! No attributes 

3 is $ 1943 2 create_arglist(5] = ZASCID *"LNMS$JOB'; ' Use job table 

° | 

: 1958 1450 4 create -argtisttt } = ZASCID 'SYSSLOGIN'; ' Define SYSSLOGIN 

: 1003 1451 4 create arglist(2] = bufdes 

3 1030 P 1638 4 SCMEXEC(ROUTIN = create “togical 

: 103! rE ? ARGL ST = create “arglist); 

: 1938 1455 4 create_arglist a } = ZASCID 'SYSSLOGIN_DEVICE'; ! Define SYSS$LOGIN_DEVICE 

3 1034 1456 4 create_arglis = devdesc; 
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IF 
H 


security_audit(nsa$k_rectyp_logi); 


_ inage_sctivate 


K 14 
16-Sep-1984 01:50:18  VAX=11 BLiss-32 vs 
12780871382 93:29:48 Ste 


mene eT it = create_logical 
ARGLST = create-arglist); 
create wergtistth) = = pacts "SYSSSCRATCH'; ! Define SYSS$SCRATCH 
create cenBut in 2 ufdes 
SCMEXEC(ROUTIN = seats “fogical 
ARGLST = create-arglist); 
END; 
END; 


Update the UAF record. 


F .uaf_record NEQ 0 
HEN update_uaf_record(time); 


Security audit successful LOGINs 


! Security audit successful LOGINs 


: Transfer control to the command ‘tanguage interpreter 


! If activating a single image, 
SCMEXEC(ROUTIN = 
SCMEXEC(ROUTIN = 


! then activate the image 
! Call the CLI image 


-ctl$ag_cl image) 
execute_cli); 


RETURN truc; 


END; 
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54 


45 


55 


-PSECT S$PLITS,NOWRT ,NOEXE,2 


43 4F 52 50 24 4D rt: 4C 00014 P.AAD «ASCII \LNMSPROCESS_TABLE\<0><0><0> 
00 00 00 45 4 B88 ; F 
010E0011 00028 P.AAC: .LONG 17694757 
00930090" B08 C “ADDRESS P.AA 
55 50 4E€ 49 24 53 be 0030 P.AAF ASCII 1pgpe bape \<oconce> 
010E0009 O003C P.AAE: .LONG 
00000000" 00040 -ADDRESS P 
43 4F 52 50 63 4D m4 4C 0044 P.AAH: .ASCII \LWMSPROCESS_TABLE\<0><0><0> 
00 00 00 45 4C 00053 
619 0011 00058 P.AAG: .LONG 17694737 
0 0099" Ft ADDRESS P.AAH 
50 54 55 4F 24 53 P.AAJ: .ASCII VST SPOUTPUT\<O><O> 
4 58008 BO9s P.AAI: .LONG 17694730 
0000000' ADDRESS P.AAJ 
4E 4C 00074 P. -ASCII \LNMSPROCESS_TABLE\<0><0><0> 


20-742 
DI SKSVMSMASTER : CLOGIN. SRCILOGIN.832; 479 “et 


Sn 
Ss 


ae 50: VAX=11 Bliss-32 V4.0-742 p 5 
v04-000 ral: DISKSVMSMASTERSLLOGIN. SACILOGIN.B32;1°%" (43 


.EXTRN CTLS$C_CLIDATASZ 
-EXTRN SYSSCREXEC, syssr aaa 
“EXTRN CTL$T_USERNAME, CTL$T ACCOUNT 
“EXTRN SYSSCAKRNL, SYSSGETTIA 


-PSECT SCODES,NOWRT,2 


18 i 1984 01:50:1 LOC 
-S$eo- | 
1oxg08- 138s 93:29:08 | vo4 
00 00 00, 45 ue 0085 : | 7] 

019 9011 0088 P.AAK: .LONG 17694737 : 3 1 

09 0 99" 908¢ ADDR P.AAL : :] 

00 00 00 52 4F 52 52 45 246 53 5 090 P.AAN: ASCII \$YSSERROR\<0><0><0> : 3; 1 
010E0009 O009C P.AAM: .LONG 17694729 : a. 

009 0009" S0a0 ADDRESS P.AAN : :] 

4D 45 54 53 5 O0A4 P.AAO: ASCII \SYSTEM\ : : ! 

3— 74 72 61 74 73 3C 00 QOOAC P.AAQ: .ASCII <O>\<start>\ : : 1 

9196000 00B4 P.AAP: .LONG 17694728 : : 1 

0000000" 00088 .ADDRESS P.AA : 71 

3—E 68 63 74 61 62 3C O geet P.AAS: .ASCII £07355 zoho’ : 3 1 

010E000 00C4 P.AAR: .LONG 17694 5] : : 1 

00900000" b00¢8 -ADDRESS P.AAS : 31 

00 00 3& 74 65 6€ 3C 0 OOCC P.AAU: .ASCII £02 \<ng t>\<0><0> : 3 

010E0006 00004 P.AAT: .LONG 17694726 : : 1 

00900000" 0008 -ADDRESS P.AAU : : 1 

3E 6€ 69 67 6F 6C 3C 00 OO00DC P.AAW: ASCII co \clogino\ : 31 

010E0008 O00E4 P.AAV: .LONG 1769472 : 31 

00900000" 000E8 .ADDRESS P.AAW : :1 

00 00 3€ 74 65 64 3C€ 00 QOOEC P.AAY: .ASCII <0>\<det>\<0><0> : 3s 1 

010E0006 OOOF4 P.AAX: .LONG 17694726 : : 1 

00900000" 000F8 -ADDRESS P.AAY : :1 

4D 45 54 53 59 3 QOOFC P.AAZ: ASCII \SYSTEM\ : 31 

3a 30 41 #50 4F 5SF 00102 P.ABA: .ASCII \_OPAO:\ : 31 

00 00 00 52 4F 52 52 45 24 53 59 53 00108 P.ABC: .ASCII \$¥SSERROR\<0><0><0> : : 1 
010E0009 00114 P.ABB: .LONG 17694729 ; 31 

00000000" 00118 .ADDRESS P.ABC : 31 

00 42 4F 4A 24 4D 4E 4C O0011C P.ABDE: .ASCII \LNMS.J0B\<0> : si 

010E0007 001.2% P.ABD: .LONG 17694727 : 3:1 

00900009" 00128 ADDRESS P.ABE ; 3:1 

00 00 00 4& 49 47 GF 4C 26 53 59 § 9012¢ P.ABG: .ASCII \SYS$LOGIN\<0><0><0> : 31 
010E0009 00138 P.ABF: .LONG 17694729 : 31 

00900000" 0013¢ .ADDRESS P.ABG : :1 

43 49 56 45 46 SF 4E 49 47 GF 4C 246 53 59 23 99140 P.ABI: .ASCII \SYSS$LOGIN_DEVICE\ : : . 
010E0010 00150 P.ABH: .LONG 17694736 : 31 

00900009" 00154 -ADDRESS P.A ; 31 

00 48 43 54 41 52 43 53 246 53 59 53 00158 P.ABK: .ASCII \SYS$SCRATCH\<0> : 31 
O10E000B 00164 P.ABJ: .LONG 17694731 ; 31 

00000000' 00168 -ADDRESS P.ABK : : ! 

s 1 

= | 

= 1 

- 1 

: 1 

+ 

OFFC 00000 LOGIN: .WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1058 :1 

58 0000" CF 9E 900¢ MOVAB UAF_RECORD. R11 : 31 

5E 80 AE 9E 0000 MOVAB -128(SP), SP : 71 

04 go oe PUSHL : 1092 3 1 

000Ov CF OF D PUSHAB SET_PPD_PROT ; 31 

000000006 90 é i 11 CALLS #2, SYSSCMEXEC ; 3] 

6 D0 00018 MOVL RO, STATU F 31 

09 6 €8 00018 BLBS STATUS, 1 > 1093 | :1 


a a 


5) 
LOGIN 1¢ ue 1984 01:50:1 VAX-11 Bliss-32 V4.0-742 P 26 | LOG 
-Sep- 230: - ss> -U= age 
v04-000 137308-1 3c 94:20:38 DISKSVMSMASTER: CLOGIN. SRCJLOGIN.B32;1 . (4) | vO4 
| 
56 DD 0001 PUSHL STATUS ; :] 
000000006 00 1 FB 6 6 CALLS #1 L1gSSTOP F : 1 
C AE 00030094 ¢ p 1$: OVL #196612, TRNLNM_ITEM_LIST > 1104 7] 
60 AE 0 AB 9E 0002F MOVAB SYSSINPUT_ATTR, TRNLAM_ITEM_LIST+4 > 1106 : 1 
g4 AE D4 99 4 CLRL TRNLNM_ITEM_LIST+ : 1107 : 1 
68 AE 4 AB B 6 7 MOVW § SYSSINPUT, TRNLNM_ITEM_LIST+12 : 1108 2] 
6A AE 02 B 0 MOVW #2, TRNLNM_ITEM _LIST+1% : 1109 21 
6C AE 58 AB DO 0004 MOVL  SYSSINPUT+%, TRNLNM_ITEM_LIST+16 : 1110 :] 
70 AE 54 AB SE 00045 MOVAB SYSSINPUT, TRNLNM_ITEM_LTST+20 + 1111 : 1 
74 AE D4 OO04A LRL ss TRNLNM_ITEM_LIST+24 + 1112 3% 
5C AE 9F 00040 PUSHAB TRNLNM~ITEM~ : 1116 : 1 
7E D4 90050 LRL = = (SP) : 31 
0000' CF 9F 0005 PUSHAB P.AAE : 31 
0000' CF 9F 00056 PUSHAB P.AAC : 31 
43 D4 OO05A LRL = = (SP) : 31 
000000006 00 05 FB 9005¢ CALLS #5, SYSS$TRNLNM : 31 
56 50 DO 0006 OVL RO, STATUS : 31 
09 56 EB 00066 LBS STATUS, 2$ : 1117 31 
56 DD 00069 PUSHL STAT : 1118 31 
000000006 00 01 FB 00068 CALLS #1, LIBSST : 31 
60 AE 5¢ AB OSE 00072 2$ MOVAB SYSSOUTPUT_ATTR, TRNLNM_ITEM_LIST+4 + 1120 3] 
68 AE 60 AB B80 0007 MOVW SYSSOUTPUT. TRNLNM_ ITEM LIST#12 : 1121 3 1 
6C AE 64 AB DO 0007C MOVL § SYSS$OUTPUT+4, TRNLNM_ ITEM LIST+16 + 1122 33 
70 AE 60 AB 9E 00081 MOVAB SYSSOUTPUT, TRNLNM_ITEM_LIST+20 > 1123 31 
5C AE 9F 00086 PUSHAB TRNLNM_ITEM_LIST : 1127 31 
7E D4 00089 CLRL  =(SP) : : 1 
0000' CF 9F 0008B PUSHAB P.AAI : :1 
0000" CF 9F OOO8F PUSHAB P.AAG : 31 
7E D4 00093 CLRL =(SP) : 31 
000000006 00 05 FB 00095 CALLS #5, SYSSTRNLNM ; 31 
56 50 pO 0009¢ MOVL RO. STATUS : 31 
09 56 «EB 0009F BLBS STATUS, 3$ : 1128 31 
56 DD 000A2 PUSHL STATUS : 1129 31 
000000006 00 01 FB B00A4 CALLS #1, LIBSSTOP : 31 
60 AE 68 AB 99E OO0AB 3$ MOVAB SYSSERROR_ATTR, TRNLNM_ITEM_LIST+4 + 1131 31 
68 AE 6C AB BO 000B0 MOVW § SYSSERROR> TRNLNM ITEM“LIST?12 : 1132 1 
6C AE 70 §=AB_ DO 00085 MOVL SYSSERROR+4, TRNLAM_ITEM LIST+16 : 1133 3 7 
70 AE 6C AB 9E OOOBA MOVAB SYSSERROR, TRNLNM_ITEM_LIST+20 > 1134 37 
5C AE OF O00BF PUSHAB TRNLNM_ITEM_LIST : 1138 31 
7E D4 000C2 CLRL = (SP) : 31 
0000' CF 9F 000C4 PUSHAB P. : :1 
0000' CF 9F 000C8 PUSHAB  P.AAK : 31 
7E D4 000CC CLRL = = (SP) : 31 
000000006 00 99 FB O00cE CALLS #5, SYSSTRNLNM ; 31 
56 0 pO 000D MOVL RO, STATUS : 31 
09 56 £9 00008 BLBC STATUS, 4$ > 1139 31 
00000629 8F 56 «ODI 90008 CMPL TATUS, #1577 : 1140 31 
03 12 O00E BNEQ ; :Y 
6¢ AB D4 OO0ES 4S: CLRL  SYS$ERROR > 1142 31 
000000006 99 0168 &F 80 OO0E7 5$: MOVW #360, PP > 1149 
! 57 000000006 09 : OOFO MOVAB PPD+$60, LGI + 1150 
000000006 00 DO 000F7 MOVL LG PPH+20 > 1151 
000000006 00 18 «A? i OOFE MOVAB 24(R7), CLIREG+4 ; 1138 
000000006 00 00000000G &F 106 MOVL #CTLSC_CLIDATAS2-384, CLIREG > 115 
000000006 00 : 4 AB 1 81 00111 ADDB3 #1, SYSSINPUT, PPD+ : 1158 
000000006 99 8 8B 54 AB 28 OO11A MOVC3 SYSSINPUT, aSYSSINPUT+4, PPD+105 : 1161 | 
000000006 02 €0 00124 BBS #2, CTLSGL_CREPRC_FLAGS*+1, 68 ; ma 
| 


N 14 
16-Sep-1984 01:50:18 VAX=11 Bliss-32 V4.0-742 Page 27 
14-Sep-1984 12:41:0 DISKSVMSMASTER: (LOGIN. SRCILOGIN.B32;1 (4) | 
000000006 00 02 88 001 BISB2 #2 : 1168) 
§ so FESB OCB OES 001 ates SobpRaCESS, 7s, : 1189 
06 20 000000006 60 6° 55 130 CMPCS heer CTLST USERNAME, #32, #6, P.AAO : 1190 
ent CO es BNEQ = -7$ ; | 
000000006 00 08 00 35 O14 SKPC =—-_s#0,,:- #8, CTLST_ACCOUNT $1191, 
113 15 BNEQ 7$ ; 
0000' CF 9F 0015 PUSHAB P.AAP + 1193 
000000006 60 9F 00159 PUSHAB SET. ACCOUN : 
000000006 00 02 FB 0015F CALLS #2, ~SYSSCM : 
27 000000006 00 04 E 0166 7$: BBC aie CREPRC FLAGS, 8$ ; 1214, 
O000v CF OF 0198 PUSHAB CLEAR CREATOR CLI : 
000000006 00 62 FB 00174 CALLS #2, SYS$CMKRNC 3 
0000' CF 9F 00178 PUSHAB P.AAR ; 1218 | 
000000006 60 9F 0017F PUSHAB set. ACCOUN ; 
000000006 00 02 FB 00185 CALLS : “BY SSENKRNE : 
000000006 00 90 FB 0018¢ CALLS #0, INIT_BATCH ; 1219 
000000006 00 93 90195 aS STB CTLSGL_CREPRC_FLAGS ; 1225 
1E 000000006 00 06 £0 0019D BBS 6 of TLSGL. CREPRC_FLAGS, 9$ + 1227 
7E D4 OO1A5 CLRL + 1230 
0000v CF 9F OO1A7 PUSHAB CLEAR CR CREATOR CLI : 
000000006 00 02 FB 001AB CALLS RNC 3 
0000" CF 9F 001B2 PUSHAB P.AAT + 1232 
000000006 60 9F 00186 PUSHAB SET_ACCOUNT ; 
000000006 00 02 FB 001BC CALLS #2, ~SYSS$CMKRNL ; 
000000006 00 00 FB d01c3 9$ CALLS #0, INIT_NETWORK ; 1234 
20 FF64 CB £9 OO1CC 10$: BLBC  SUBPROCESS, 12$ + 1243 
7E D4 00101 CLRL = SP) + 1245 
000000006 00 9F 00103 PUSHAB OPEN OUTPUT : 
000000006 00 02 FB 00109 CALLS #2, SYSSCMEXEC ; 
7E D4 001E0 CLRL. 3s = §P) : 1247 
000000006 00 9F 001E2 PUSHAB OPEN_INPUT : 
000000006 00 02 re OOiES car CALLS We, SYSSCMEXEC Pies 
50 000000006 00 01 02 EF OO1F1 12$:  EXTZV #2, #1, CTLSGL_CREPRC_FLAGS+1, RO > 1255 
51 000000006 00 01 EF OO1FA EXTZV #5, #1. CTLSGL-CREPRC-FLAGS+1, R1 : 
50 51 CA 00203 BICL2 R1. RO : 
" 33 if 09 $8 a Ry ik eter 
E D 0B CLRL =(SP) + 1257 
0000v CF 9F 3 0D PUSHAB ¢ EAR_CREATOR_CLI ; | 
000000006 00 02 FB 00211 CALLS S¥S SCMKRNC ; 
0000° CF 9F 90 18 PUSHAB + : 1259 | 
po0oo000e 9 9700S 89 FE b0 33 CALS” BD. “ACCOUNT 
000000006 00 FB 00 CALLS #0. INIT INTERACTIVE > 1260 
000000006 00 0 FB 00 CALLS #0, CHECR CONNECTION > 1261 
0000v CF 0 re 0 na CALLS ’ { CHECK~JOB_QUOTAS : 62 
34 000000006 00 6 E0 0 A$: BBS H, CTLSGL_ CREPRC_FLAGS, 15$ : 1270 
CF BF 00 PUSHAB CLEAR_CREATOR_CLI : 


15 
1b-Se -1984 50:1 VAX-11 Bliss-32 V4.0-742 P 
12-80 8= 1382 94:20:) DISKSVMSMAS TER: LLOGIN. SRCJLOGIN.B32:1 > ( 


000000006 CALLS #2, SYSSCMKRNL 


am 0” CF OF 55 PUSHAB ; 1275, ; 
000000006 3F ; PUSHAB $ TACCOUNT : ; 
000000006 00 FB 0025D CALLS) #2,” SYSSCMKRNL ; ; 
0000v CF F 64 ALLS #0, GET_UAFREC > 1276 | : 
3 Bee gach tECO peed | 
000000006 8F DD D PUSHL #LGI$_USERAUTH : 1278) 3 
000000006 90 01 F 0 7 CALLS #1, LYBSSTOP : se ; 
0 68 D 7A 15$ MOVL AR RECORD, RO ; 1286 : 
28 1 0 7D BEQL 7$ : ; 
0206 £0 B5 0027F TSTW  518(RO) t 1288 ; 
6 12 00 83 BNEQ 16$ : ; 
0208 CO B 0 TSTW  520(RO) : 1289 ; 
& 89 BEQL 17$ : ; 
7E 04 00288 16$: CLRL  -(SP) + 1292 ; 
0000v CF OF 00280 PUSHAB CHECK_USER_QUOTAS : ; 
000000006 00 98 FB 029 CALLS #2, SYSSCMRRNL : : 
56 50 dO 00298 MOVL STATU 3 : 
09 56 £8 00298 LBS STATUS, 17$ : 1293 ; 
56 DD 0029 PUSHL TUS > 1294 3 
000000006 00 01 FB 00 AO CALLS #1, LIB$STOP ; ; 
68 b3 O2A7 17S: TL F RECORD : 1302 : 
63 13 0029 aL $ : ; 
78 AE 9F OO2AB PUSHAB TIME + 1305 ; 
000000006 00 01 FB OOAE CALLS #1, SYSS$GETTIM ; : 
54 6B DO 0028 OVL RECORD, R4 + 1307 ; 
20 04 AG 20 2D 00288 CMPCS 27 4(R4). #32, #6, P.AAZ ; : 
0000' CF 002BE : : | 
OC 12 d02C1 BNEQ : | F 
00 44 BB 40 AB 2D 002C3 CMPCS PHY_TERM_NAME, @PHY_TERM_NANE+4, #0, #6, - ; 1310) 3: | 
0000' CF OO2CA BA : 2 | 
3F 13 002CD BEQL $ : | 
06 01D5 C4 01 €0 OO2CF 18$: BBS #1, 469(R4), 19$ : 1316) : 
0D 0105 C4 02 £1 00205 BBC #2. 469(R4)., 20$ : 1318) a | 
000000006 8F DD 002DB 19$:  PUSHL #LGI$ PWDEXPIR : 1320 : 
000000006 00 01 FB 00261 CALLS #1, LYBSSTOP : ; 
50 6B DO 002E8 208: # MOVL UAF_RECORD, RO + 1322 : 
0b 01D4 «0 04 €1 O002EB BC #4,7468(ROS, 21% : ; 
000000006 8F DD 002F1 PUSHL #LGI$_NOTVALID + 1323 ; 
000000006 00 01 FB 002F7 CALLS #1, LIBSSTOP : 3 
78 AE OF OO2FE 21$:  PUSHAB TIM : 1324) : 
0000v CF 01 FB 00301 CALLS #1, CHECK_ACCOUNT_EXPIRATION : | : 
78 AE 9F 00 06 PUSHAB TIME > 1325 | ; 
0000v CF 1 FB 00 CALLS #1, CHECK_USER_HOURS : : 
13 000000006 00 : E1 00 OF 22$: BBC #2. CTL$GC_CREPRC_FLAGS*1, 23% : 1333, ; 
0B 000000006 00 E 6 1 BBS #5, CTLSGL~CREPRC~FLAGS+1, 23$ ; 133 ; 
68 p 0 1 Ist Af RECORD : 1334) : 
000000006 00 60 FB 0 CALLS #0, ANNOUNCE : 1336 | ; 
7 FF65 cB E 23$: BLBS —_IMAGE_ACTIVATE, 24$ : 1342 : 
000000006 90 F CALLS #0, IRIT CLI 1348 | ; 
$8 p 24$: OV AF RECORD, RO : 1 50 ; 
10 000000006 00 06 £ A BBS a6 CTLSGL_CREPRC_FLAGS, 25$ : 1 51 : 
8 FF64G) «COCBC#éE 4g BLBS UBPROCESS, 25$ : 1 2 : 
6 24 AO DO 0034 MOVL 6(RO), (L6!) > 135 ; 
j 
| 
| 
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a ae ee Jon i 
| 15 
LOGI b-Sep VAX BL 2 P 


N 4 250: -11 iss-32 V4.0-742 age 30 
v04-000 =3eP 71382 94:20:48 DISKSVMSMASTER=CLOGIN. SRCILOGIN.B32:1-> (4) 
OC AE 01 7D 00431 MOVQ #1, CREATE_ARGLIST+12 1 144 
14 AE 00 ' CF OE ‘33 MOVAB P.ABD, CREATE_ARGLIST+20 ; 1228 
04 AE 000' CF 9E 00438 MOVAB P.ABF, CREATE-ARGLIST+4 : 1450 | 
8 AE AE 9E 00441 OVAB BUFDESC, CREATE_ARGLIST+8 ; 1451 
5 pb 44g PUSHL SP + 1453 
000000006 : F 0044 PUSHAB CREATE LOGICAL ; 
000000006 00 FB Aug CALLS #2, SYSS$CMEXEC : 
04 AE 0009" CF 9E 0045 OVAB P.ABH, CREATE_ARGLIST+4 + 1455 
08 AE 18 AE 9E 00458 MOVAB DEVDESC, CREATE_ARGLIST+8 + 1456 | 
SE DD 0046 USHL SP ; 1458 | 
000000006 00 9F 0046 PUSHAB CREATE LOGICAL ; 
000000006 00 02 FB O46 LLS #2, SYSSCMEXEC ; 
04 AE 0000' CF 9E 46f MOVAB P.ABJ, CREATE_ARGLIST+4 + 1460 
08 AE 20 AE 9E 00475 MOVAB BUFDESC, CREATE_ARGLIST+8 : 1461 
3E DD 0047A PUSHL SP + 1463 
000000006 00 9F 0047¢ PUSHAB CREATE_LOGICAL ; 
000000006 00 02 FB 00482 CALLS #2, SYSSCMEXEC : 
68 05 00489 31%:  —~TSTL VAR RECORD : 1472 
08 13 00488 EQL 2$ : 
78 AE 9F 0048D PUSHAB TIME + 1473 
0000v CF 01 FB 00490 CALLS #1, UPDATE_UAF_RECORD ; 
05 DD 00495 32$: PUSHL #5 + 1479 
000000006 00 01 FB 00497 CALLS #1, SECURITY_AUDIT ; 
OA FF65 CB €9 00496 LBC =—‘IMAGE_ACTIVATE, 33$ + 1485 
7E 04 004A CLRL = =( SP) + 1487 
000000006 00 DD 0045 PUSHL  CTLSAG_CLIMAGE : 
08 11 004AB BRB 34$ : 
7E D4 O04AD 33$:  CLRL (SP) + 1489 
000000006 00 9F OO4AF PUSHAB EXECUTE_CLI : 
000000006 00 02 FB 004B5 34$: CALLS #2, SYSSCMEXEC : 
04 0048C RET : 1493 


; Routine Size: 1213 bytes, Routine Base: $CODE$S + 0180 


.0-742 
GIN.SR 


P 
CILOGIN.B32:1°%" (3) 


i The routine below is a go Ay the CLISPRESENT routine in CLISINTERFACE. 


! This is used so that we call the current CLI's result parse routines, not 


the routines Linked into us for LOGIN's sake. 


1073 9 ROUTINE Logout: NOVALUE = 
O74 9 ° 
075 9 leon ; 
076 9 ' 
077 9 ! If this is a batch job, an Mag m4. is made to start the 
o78 8 next job step. for all other jobs, the process is terminated. 
080 ! Inputs: 
081 ! 
ORs ! None 
08 ! 
084 ' Outputs: 
085 ! 
086 ! None 
087 leoe 
088 
089 BEGIN 
090 
091 
092 
093 
094 
095 
096 
97 
98 
9 


ee ee ee ee ee ee ee ee eee eee 
een aah ah sb Ab sh Ab Ab db Ab ah Ab Ab db db ah ah ah ah ahead al aba ales) al al al eal Pe oe oP oe 


WAU WWII NAIR RININININININININD) 2 2 OOS SS DOOOOOOCOO 
NAMES WN OOOO NAME WW O OD NAUES WN 0 ODNAUEWWN OOONAUE 


Be Se Se Se Ge Oe Se Se Se Se FH Se FH Ss Se Se BH Se Oe SF Oe Se Oe Se SESH SE Se Se Se Se See Sete Se Seesese See tsetse 
RIWAWNWNAANNANAWNANNIWNIPIPONONIPI NINN 2 A PP OO OO eS OS OS 


es tS OS SP SS Ss 2 os SS SS SS SS SY YH YS SS sn ss SS 


| 

| 
ROUTINE real_cli$present(name) = 

| 

| 

| 

| 


0 

0 BEGIN 

09 EXTERNAL ROUTINE 

100 Lib$get_vm, ' Allocate virtual memory 

101 Lib$free_vm, ' Deallocate virtual memory 

136 > sys$cli; ! Current CLI's callback address 
Oe maa : REF VECTOR; ! (Static) Descriptor by reference 
106 req.desc : BBLOCK Ccli$c_reqdesc], ! Request descriptor block 

107 rpw : BBLOCK cliss workareal, | Result parse work area 

108 req_flags : BITVECTOR (327; ' Request flags array 

109 CHSFILLTO, cli$c_reqdesc, req_desc); ! Zero request descriptor block 
110 req_desc Lint_b_type] = cli$k_present; ! Set oes type 

111 req_desc int.) .getvad = Uibsget_vm: ! Set address of get vm routine 
112 req_desc CLint_l_freevm] = LibSfree_vm; ! Set address of free vm routine 
113 req_desc Cint_w_entlen] = .name (OJ; ' Set length of passed name 

114 reg desc Lint-l~entaddr] = .name (11; | Set address of passed name 

HE =o (sys$cTitreq_desc, rpw, req_tlags)); ! Call callback utility 
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.EXTRN LIBSFREE_VM, SYSSCLI | 


Save R2,R3,R4,R5 : 1518 | 
CE 9E 90002 HOVAB -160(SP5, §P : 
00 2€ 000 t mMOVCS #0, (SP), #0, #28, REQ_DESC + 1530 
BF 90 0005 MOVB #80, REQ DESC > 1531 
00 9—E 0001 MOVAB LIB$GET UM, REQ DESC+16 > 15 s 
0 9E 0001B MOVAB LIBSFREE_VM, REG_DESC+20 : 15 | 


1 =1984 01:50:1 VAX=11 Bliss 
v04-000 aR ets va Pod Bet EP HS 
50 04 AC D 3 MOVL NAME, RO 
EC AD 60 8B MOVW (RO). REQ_DESC+8 
FO. AD 04 AQ D0 MOL 4 (ROS, REQ_DESC+12 
op AE O00 piste fey 
000000006 00 0 FB 98 4 CALLS yi eerttt 


Routine Size: 64 bytes, Routine Base: S$CODE$ + 063D 


LOCAL status; 
! 
! First cancel the CLI's exit handlers. Thus, if a forced exit occurs, 


! the process terminates, rather than having control return to the CLI 
with the process in some state of disarray. 


SCMEXEC (ROUTIN = nag go 
ARGLST = rundown lists; 
IF NOT .status THEN SIGNAL_STOP ¢.status); 


status 


i Change the page protection on the PPD structure to allow user mode 
write access, so that this program may run primarily in user mode. 


SCMEXEC (ROUTIN 
ARGLST 


status set_ppd_prot, 
= prt$c_uw); 


L wd; 
IF NOT .status THEN SIGNAL_STOP (.status); 
ppd Cppd$w_inpifil; 


WWI WWIII RIPPIN NINNININ 3] 


CSS RNS RUN LS SONS AER U ~O Oe AOU RUN DOOD OU Our O00 md 


! Restore input IFI 


PARP ANI EE BREE EW 
WR SO DONAUESWN “OO ONOUSWN—OOe 


a ee ee a ee ee ed aed ad ad ed ed 
ee eee eee 
ee ee nn ee ee ee 
Pw wale leah al ales eal eal aha eal eal eabealahvaleal wala healealeah alvalwal eal eal wal ealeal eal eale, lolol ele, e. eee e,) 


: 

2 

2 

2 

2 

2 
3 
3 ; CH WE (ppddc _dyitid ppd [ppd$t_inpdvil, input_nam Cnam$t_dviJ); 
3 output_fa fab$w_ifi = .ppd ppd$w_outi iJ; ' Restore output IFI 
4 2 output rab Crab$w_isiJ = .ppd Cppd$w_outisil; ' Restore output ISI 
: ; CHSMOVE (ppd$c_dvifid, ppd Cppd$t_outdviJ, output_nam ([nam$t_dviJ); 
4 64 ! 
Z rH Security audit all LOGOUTs 
7 67 security_audit (nsa$k_rectyp_logo); ! Security audit all LOGOUTs 
? +4 full_logout = .ppd Cppd$v_mode]; ! Assume /FULL if batch job 
: a pool st fipresent ¢EAsc se "FULL") ! If /FULL present, 
2 75 full_logout = true; 
: ie if real cl iSpresent(ZAscip "BRIEF*) ! If /BRIEF present, 
5 35 full_logout = false; 
3 19 Ss 
5 80 i If the logout contains an explicit reference to either /HANGUP or 
6 81 ! /NOHANGUP then process that request. First disable the installed 
6 82 ! LOG_IO privilege so that the terminal's MODHANGUP protection 


is eRe V4.0=742 


.0- p 
CLOGIN. SRCJLOGIN.B32; 1 


o § 


functions correctly. 


clear_log_io( 


); 

statuS = real _cli$present(ZASCID 'HANGUP'); 

IF .status EQC cli$_present 

eat EQL cli$_negated 
set_terminal_hangup(.status); 


Hr eget at crepre.flegelprcdy patch: ! If batch job, 


BEGIN 

SCMEXEC (ROUTI 
init b : 
senexe 

a CCROUTIN 


Close input file 

Get next input file; if none, exit 
Open input e 3 

Call already mapped CLI again 


close_input); 


CONAPL EWAN OOONAOUL Ww 


open_input); 
execute_clid; 


ogout_message(); 


CMEXEC(ROUTIN = close_input); 


l Write logout message 
$ 

SCMEXEC(ROUTIN ¢ loseoutput); 

$ 

E 


Close input file 
Close output file 


GN ARN HM SOSNAUR UNO Dee ne 


CMEXEC(ROUTIN = exit_process); 
ND; 


Terminate process 


ts 2 2 ss 2s 2s a a a as 2 os 
Seesescacevaueeceveueumeues 
SRUFAFAW OD 


=NIPMIPIPINININININIWWIWIWNUnnofonononornopornornonorny) 
= ] 
ad 
oe 
—_e 
zaoa 
ost 
Cc 
par 
oe 
2 
“uw 


b tah) teh tet eet EP PRN RP An Nr AAO 


-PSECT SPLITS,NOWRT ,NOEXE,2 


4C 4C 55 46 0016C P.ABM: .ASCII \FULL\ 
010E0004 00170 P.ABL: .LONG 17694724 
00000000" 00174 “ADDRESS P.ABM 
00 00 00 46 45 49 52 42 00178 P.ABO: <ASCII \BRIEF\<0><0><0> 
010€0005 00180 P.ABN: .LO 17694725 
00000000" 00184 “ADDRESS P.ABO 
00 00 50 55 47 4E 41 48 00188 P.ABQ: <ASCII \HANGUP\<0><0> 
0100006 00190 P.ABP: .LONG 17694726 
00000000" 00194 “ADDRESS P.ABQ 
.PSECT S$CODE$,NOWRT,2 
FC 00000 LOGOUT: .WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
9E 000 MO FULL_LOGOUT, R11 
9E 000 CLOSE_INPUT, R10 
9E 000 LIBSSTOP, R9 
9E 99 PPD+32, R 
9E 0 SYSSCMEXEC, R7 
9F 000 RUNDOWN _LIST 
9F 000 LGISCMSOPR 
FB 000 #2, SYSSCMEXEC 
DO 000 R STATUS 
E8 000 STATUS, 1 


1984 01:50: VAX=11 Bliss-32_ V4.0-742 P 
71382 9329508 DISKSVMSMASTER: CLOGIN.SRCILOGIN.B32;1/ > 3 
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ee ee ee ee ee ee ee ee 


oe 
H 15 
LOGIN 16-Sep-1984 01:50:1 VAX-11 Bliss=-32 V4.0-742 Page 34 
v04-000 19-808- 1382 9%} 29:48 DISKSVMSMASTER: CLOGIN. SRCILOGIN.B32;1 . 3 
56 DD 00036 PUSHL STATUS : | ; 
69 4 FR 0 CALLS #1, LIBS$STOP : | ; 
4 pp B 1$ PUSHL #4 : 1555) F 
0000v CF 9F 00030 PUSHAB SET_PPD_PROT : | ; 
7 3 F 041 CALLS #2, SYSSCMEXEC : : 
6 DO 00044 OVL R : | : 
0s 56 EB 00047 LBS STATUS, 2$ : 1556) ; 
56 DD 0004A PUSHL STAT : ; 
69 01 FB 0004C CALLS #1 4 : ; 
000000006 0 6B 80 OO4F 2% OVW PPb+ INPUT_FAB+2 : 1558 ; 
000000006 00 08 A iC 0056 MOVC3 #28, PPD+40, INPUT _NAM+20 ; 1559) ; 
0000006 99 04 As BO 0005F OVW pPD+36, OUTPUT _F AB? : 1560 : 
000006 6 A 8 0067 OVW  PPD+38, OUTPUT-RAB+ : 1561 ; 
000000006 00 28 AB Mc 006 MOVC3 428, PPp+72, OOTPUT_NAM+20 : 1562 : 
07 DD 00078 PUSHL # : 1567 ; 
000090006 00 01 FB OOO7A CALLS #1, SECURITY_AUDIT : : 
50 E2 As 01 gi gf 00081 EXT2V #1, #1, PPD+2, RO + 1569 ; 
68 0 90 00087 MOVB RO, FULL_LOGOUT ; ; 
0000' CF 9F OOOBA PUSHAB P.ABL + 1571 : 
FF2D CF 01 FB 0008 CALLS #1, REAL_CLISPRESENT : : 
03 50 £9 0009 BLBC ~—_ RO, ; : 
6B 01 90 90096 MOVB #1, FULL_LOGOUT : 1573 : 
0000' CF 9F 00099 3$ PUSHAB P. : 1575 ; 
FFIE CF 01 FB 0009D CALLS #1, REAL_CLISPRESENT : ; 
02 50 E9 000A2 BLBC ‘ ; : 
6B 94 000A5 CLRB  —s FULL_LOGOUT : 1577 : 
0000v CF 00 FB OOOA7 4$ CALLS #0, CLEAR_LOG_IO : 1586 ; 
0000' CF 9F OOOAC PUSHAB P.ABP : 1587 : 
FFOB 01 FB 00080 CALLS #1, REAL_CLISPRESENT : ; 
56 50 pO 00085 MOVL RO, STA ; : 
000000006 &F 56 D1 00088 CMPL STATUS, #CLIS_PRESENT : 1588 ; 
09 13 O00BF BEQL : : 
000000006 8F 56 D1 000C1 CMPL STATUS, #CLIS_NEGATED : 1589 : 
07 12 000C8 BNEQ 6 : : 
56 DD OO0CA 5$ PUSHL STATUS + 1591 : 
9000 CF 01 FB O00CC CALLS #1, SET_TERMINAL_HANGUP : : 
24 000000006 00 04 E1 000D1 6$: BBC #4, CTLSGL_CREPRU_FLAGS, 7$ : 1593 : 
E D4 00009 CLRL 3s = ( §P) : 1596 ; 
5A DD 0000B PUSHL R10 : ; 
67 02 FB 000DD CALLS #2, SYSSCMEXEC : : 
000000006 00 00 FB S009 CALLS #0, INIT_BATCH : 1597 : 
7E D4 000E CLRL 0s = ( §P) : 1598 : 
000000006 00 9F 000E9 PUSHAB OPEN_INPUT : : 
67 92 FB OOOEF CALLS #2, SYSSCMEXEC : : 
E D4 000F2 CLRL Ss = §P) : 1599 : 
000000006 00 9F 000F4 PUSHAB EXECUTE_CLI : : 
67 08 fp OFA CALLS a2, SYSSCMEXEC : : 
0000v CF 00 FB OO00FD 7$ CALLS #0, LOGOUT_MESSAGE : 1602 : 
7E D4 00102 CLRL =_ = ($P>) > 1604 : 
0 a EAs BYP evsscnexec : ; 
; D4 00109 CLRL Weees : 1605 : 
000000006 9F 0010B PUSHAB CLOSE OUTPUT ; : 
67 FB 00111 CALLS #2, SYSSCMEXEC : : 
E p4 114 CLRL 0=._- = (SP) + 1607 3 
0000v cf F 60116 PUSHAB EXIT PROCESS ; : 
67 2 FB OOIIA CALLS #2, SYSSCMEXEC ; 5 


Pata a a a 


; 1609 


Pa 5 
STERSCLOGIN. SACILOGIN.B32;1°%" (23 


$s-32 V4.0-742 


“<= 


RET 


04 00110 


286 bytes, Routine Base: S$CODE$ + 067D 


; Routine Size: 


vOe 


#8 


INDI WIANIRUTUNININININININD 2  - 4 2 SS Ss 2 OOOOCOOCOCOCO woo ono 


115 
b-Sep-1984 01:50:18  VAX=11 Bliss-32 v4.0-742 Page 3 
Pace he PhiZFd8 | PTSedbnGhle teas ci Sein tecauocin.es2:1°"" ca 


<r 


Check if the interactive job quota has been exceeded, and if 
so, issue a fatal message to the user. 


ou RETURN; then bypass all quota checking 


Ft gtr eon. tyebent GTRU .sys$gw_ijoblim ! If job Limit exceeded, 


BEGIN 

zsyssou_tjobl im EQL 0 If logins disabled, 

ELS SIGNAL _STOP(Lgi$_logdisabl) ! then signal logins disabled 

- SIGNAL _STOP(Lgi$_exquota); ! else signal login quota exceeded 


1 

1 

1 

1 

1 1 

1 ' 

1 ! 

: Inputs: 

1 ; uaf_record = Address of user's UAF record, if any 
| Outputs: | 
None 
BEGIN 

5 EXTERNAL 

¢ sys$gw_ijobcnt: WORD, ! Number of interactive jobs 

3 sys$gw_ijoblim: WORD; ! Interactive job Limit 

3 LOCAL 

; privmask: REF BBLOCK; ! Address of user's privilege mask 

3 IF .uaf_record NEQ 0 ! If UAF record valid, 

3 THEN 

3 BEGIN ' | 

3 rivmask = uaf_record Cuaf$q_priv]; ! Get address of user's privmask 

, F .privmask Cprv$v_operJ ! If operator, 

4 

4 

4 

4 

4 

4 


PWN O OO AOUE WN O OONOAUE WN O OONA UE WA!" OVOOVNOUES WO 
PIN AWN NIIP NIN NN AWINIPIPIPONDIPUNIPINININDDD 2 2 2 2 SS Se 


Bee ee Be Ge Se Se Se Se Ge FF Fe Oe FH Se Ge SFOs Se Se Oe FHS Oe Oe HSH HS Se Oe Se Se See Se SHS Sees ee SE SeSetee 
ak ak a a a a ka ad ad od ad td = = 8 a I I 


POPPIN NINIPIPIPINININIPINIPININININININPINININININININININININININ 2 SS SS 
a a kh dd dd 


DDD OOD DO OO DDD PD -- DeO-D- O-O 


Wn & & 


END; 


-EXTRN SYS$GW_IJOBCNT, SYSS$GW_IJOBLIM 
0000 00000 CHECK_JOB_ QUOTAS: 
.@ORD 


Save nothing : 1610 

50 0000° cr 09 900 HOVL UAF RECORD, RO ; 1635 

50 019¢ CO 9€ 00009 MOVAB 412(RO), PRIVMASK : 1638 

29 60 12 S005 BBS #18, (PRIVMASK), 4$ > 1639 
50 000000006 00 3C 00012 18: MOVZWL SYS$GW_IJOBLIM, RO > 1644 


102800 b-Seo-1944 93:29 OS Beeb hAS ERs cl etn’ RcaLociw.832:4 


50 000000006 B CMPW F{SS6U_1JOBCHT RO 
BLEQU 
9 TSTL R 
BNEQ 2 
000000006 8F DD 6 PUSHL gL G1S_ LOGDISABL 
6 11 C BRB 3 
000000006 8F DD O00ZE q: PUSHL pee EXQUOTA 
000000006 00 01 FB 00034 3$: CALLS , LIBSSTOP 
04 00038 4$: RET 


; Routine Size: 60 bytes, Routine Base: S$CODES + 0798 


LO 


e 3 
7 


=1384 93:20: 18 VAX=11 Bliss-32 V4.0-742 Pag 8 
1984 12:41:0 DISKSVMSMASTER: CLOGIN.SRCILOGIN.B32;1 (7) 


3 3 1633 1 FORWARD 
3 } i 1028 i synch_ipl; ! Cell to force locking of this page 

5 1239 168 1 ROUTINE check_user_quotas = 

S152) 1660 1: | 
> 126 1661 1: 

: 124 1666 1} Check if this process has reached it user job Limit or account 

> 1244 1665 1! ob Limit, if so, issue a fatal message to the user. 

3 1245 1664 1! his routine runs in kernel mode and epends on all the local 

3 ; r¢ 199? ! variables to be either in registers or on the stack. | 
: 1248 1667 1 | Inputs: 
> 1249 1668 1! 
: 1250 1669 1! uaf_record = Address of user's UAF record | 
: 1251 1670 1! 
3 1$26 1671 1 ! Outputs: 
> 125 1678 1 i | 
> 1254 16735 1! None | 
; 1255 1674 1 !<-- 

158 1676 2 BEGIN 

TES 8 exten 

: 1260 1679 sch$gl_pcbvec: REF VECTOR, ' Address of PCB vector 

3 1362 ion sch$gl_maxpix: LONG; ! Last process slot index 

> 126 1682 2 LOCAL 

; 1264 1683 2 pcb: REF BBLOCK, ! user's pcb 

: 1265 1684 § jib: REF BBLOCK, ' user's jib 
3 1266 1685 usercnt, ' count of same user logged in 
3: 1267 1686 acntcnt, ' count of same accounts logged in 

3; 1268 1687 userstr: BBLOCK Cuaf$s_username],! local storage for user name 

3 136° ios acntstr: BBLOCK Cuaf$s_account]; ! local storage for account 
tie 1691 9 sentent = 0; 

: acntcnt = 0; 

3 1595 1036 

: ist 1997 CHSCOPY (uaf$s_username, uaf_record Cuaf$t_username], 

; 1576 1695 uaf$s_username, userstr ); 

; F144 1998 
3: 1278 169 CHSCOPY (uaf$s_account, uaf_record Cuaf$t_account], 

3 fia 1998 ° 

: 1600 4 uaf$s_account, acntstr ); 

; 1282 1701 2! 

; : +4 1708 : This page of code needs to be locked in the working set | 
; 1385 170% ; 

; 1656 1706 SET_IPL (.synch_ipl); ! disable scheduling | 
: 1288 170 

: 1589 17 . ! For every process on the system, check the username and account name 
; 1290 17 ! in the i180 and talley the number of users logged in under that username 

3 ’ 33 ely ; and account name. 


eS - - + 


M15 
LOGIN 16-Sep-1984 01:50:1 VAX=11 Bliss-32 V4.0-742 
v04-000 10738b-198e 12529309 DISKSVMSMASTER: CLOGIN. SRCILOGIN.B32; 4 a 


unt, 
b Cyibse_ aceeunt?. 


93 1 | 
$e } INCR ebcht FROM 2 to .sch$gl_maxpix DO | 
96 1 “ : -sch$gl_pcbvec C.ji; ! get the pcb address 

of } We sP pcb NEQ .Sch$gl_ pcbvec C0) ! 1f mot NULL PROCESS pcb 

99 1 ene -pcb pchsi owner] EQL 0 ! and not sub-process 

B 1 + sae pcb$V_netwrk “Far 0 ! and not network job 

0 

8g cb Cocb$l_jibj; ! get the associated jib address 

4 ie Fea tees 9 ve 

05 THEN 
: BEGIN 

usercnt = .usercnt + een (uaf$s_username, 

use 

3 ibss usevnene, 

Hy Cyibst_ username], 
31 3 acntcnt = .acntcnt + cHseni (uaf$s_account, 
31 3 acntstr, 
Hs 3 Hey, acco 

1 3 
31 3 

1 3 


ET_IPL (0); ! reenable scheduling 


Ss 
IF .uaf_record Cuaf$w_maxjobs] NEQ 0 ! If max user jobs specified 
TH - i check to make sure not exceeded 


*Tusercnt - .uaf_record Cuaf$w_maxjobs] GTR 0 


END: EN RETURN lgi$_userexc; ! then signal can't login now 


a suet record Cuaf$Sw_maxacctjobs] NEQ 0 ! If max account jobs specified 
' check to make sure not exceeded 


WwW = —— 


MEW 0 OONOU FWD “OO OOBNOUSWN—O0DOn 


"BEGIN 
IF “peneent - .uaf_record Cuaf$w_maxacctjobs] GTR 0 


wd WW POPOPENonofnornoforyd 


vd 


EN RETURN lgi$_acntexc; ! then signal can't login now 


RETURN TRUE; | 
END; | 


Oe a ee ee a ee ee a a a a a de ad 
ee ne ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee oe ee ee 
NNN NNN SN NNN SSS 


HAAG & BBE EEE EPI 
SOONOUE WN $$ O OODNOAU EWN $9 ODNAUE WN (OOD NOU SW OO OONOUS wr 


P] 
: 


Se Se Se Se Ge Se Ge Se Ge Se SH Se Ge Fe Se SH Se Ge SF Se Se Be Se Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Oe Se Se Ge eGo Se Be Se Seas 


~-EXTRN SCHS$GL_PCBVEC, SCHSGL_MAXPIX 


| 
| 
OFFC 00000 CHECK_USER_QUOTAS: 

<WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 1658 | 

5E CO AE 9E 00002 MOVAB -64(SP). SP ; | 
| 

| 

| 

| 


} 
N15 | 
16-Sep-1984 01:50:1 VAX-11 Bliss-32 V4.0-742 Page 40 
13-808- 1382 3 41 48 DISKSVMSMASTER: CLOGIN. SRCJLOGIN.B32; 1 : (7) | 
SA 7 000 CLRO.ACNTCNT + 1691 | 
5 0000° CF o08 MOVL_ UAF_RECORD, R8 : 1693) 
AE 94 A 0 MOVC #36. (R8), USERSTR : 
bE eo A 01 MOVC 2(R8S, ACNTSTR : 1697) 
1 0000v cf DA 91 MTPR SYNCH_IPL, #18 + 1705 
59 000000006 60 D0 001D MOVL  SCH$GC_PCAVEC, R9 : 1715 
57 gi D0 00024 MOVL #1, J : 
: 11 99 7 BRB 4$ : 
54 6947 D0 00029 18 MOVL (R9)CUI, PCB : 
69 34 D1 00020 CMPL PCB, (R9) : 1716 
2 13 000 BEQL 4$ : 
1¢ A& D5 000 TSTL 28 (PCB) : 1718 
2D 12 000 BNEQG 4$ : 
28 26 AG 05 £0 00037 BBS #5, 38(PCB), 4$ + 1719 
56 0080 ¢é 09 0003¢ MOVL 128(PCB), JiB : 1728 
¢! 13 00041 BEQL 4$ : 172 
5 04 90043 CLRL R5 : 1729 
20 20 AE - 20 2D 90045 CMPCS #32, USERSTR, #32, #12, 12(JIB) : 
03 12 0004D BNEQ 2$ : 
55 D6 O004F INCL = RS : 
58 55 CO 00051 2$ ADDL2 5, USERCNT 3 
55 «D4 00054 CLRL R5 + 1734) 
20 bE 20 2d 00056 CMPCS #32, ACNTSTR, #32, #8, 24(JIB) : 
18 A6 00058 : 
0¢ 12 0005p BNEQ 3$ ; 
55 06 0005F INCL = RS : 
5A 55 CO 00061 3$: ADDL2 5, ACNTCNT : 
BD 57 000000006 00 F3 00064 4$: AOBLEQ SCHSGL_MAXPIX, J, 1$ : 1713 
12 00 DA 0006C MTPR#f : 1740 
50 0206 C8 3C 0006F MOVZWL 518(R8), RO t 1742 
OD 13 00074 BEQL : 
50 5B D1 00076 CMPL §_- USERCNT, RO + 1745 
08 15 00079 BLEQ : 
50 000000006 8F 0 90078 MOVL WLGIS_USEREXC, RO + 1747 
50 0208 c8 3¢ $0088 5$: MOVZWL 520(R8), RO : 1750 
0p 13 90088 BEQL : 
50 5A D1 O008A CMPL §_ ACNTCNT, RO : 1753 
08 15 0008D BLEQ : 
50 000000006 8F D0 0008F MOVL §§ #LGIS$_ACNTEXC, RO : 1755 
04 00096 RET 
50 01 DO 00097 68: MOVL #1, RO : 1758 
04 0009A RET : 1760 
; Routine Size: 155 bytes, Routine Base: S$CODE$ + 0707 
| 
1 
: PSECT OWN = SCODES(NOWRITE,EXECUTE); ' Cause this own to occur here 
‘ OWN synch_ipl: INITIALCipl$_synch); ! Used to lock previous code page 
1 PSECT OWN = SOWNS(WRITE,NOEXECUTE); ! Restore normal own psect 
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1368 ROUTINE check_user_hours (time) : NOVALUE = 
i loon 
' 
o : Check to see if this process is allowed to ae now on the type of 
2¢ terminal Line indicated. If not, issue a fatal message to the user. 
28 | Inputs: 
58 i time = quadword date and time 
59 uaf_record = Address of user's UAF record, if any 
Outputs: 
| None 
BEGIN 
STRUCTURE 


gored ~<a Ci; n, ext=0]) = 
n 
(threebytevector+i*3)<0, 24, ext>; 


MAP 
time: REF VECTOR; ! Quadword date and time 
EXTERNAL 
exe$gl_flags: BITVECTOR; ! System wide flag bits 
EXTERNAL LITERAL 
exeSv_explicitp: UNSIGNED (6), ' day type set by operator 
exe$v_explicits: UNSIGNED (6); ! flag as to whether operator set day 
LOCAL 
day, Day of week for today 


Hour of day for today 
Prime/secondary day flag 
Longword for correct days flags 


_—eme mee 


our, 
secondary_day, 
flags; 


! 
! Define a vector structure over the UAF hourly restriction fields 
for quick reference. 


DWOOOO ODO OO WWW WO W000 NINN SIN NNN NAA AAAAAAO 
——DOODOGDO9O09 000000000 O00 0009 09 00 09 09 0909 09 SII NII NINN NNO OF 
Cihkd > OOO NOME WN O OOO NOU EWN © 009 NOU WIN O00 OP UT NR OSGI I UES NR OOo od 


ooo oa 
ee ee ae ce ce ed ee a ce ee ee ee ce ae ee ee a ce ee ce ee ca ce a ce ce a ee a el cl i el ce ee ce el ec a a ce ee ee ee ee ed 


900000000 09 00 09 00 00 00 09 00 00 On 09 00 09 C0 CO C8 CODD OO SINISE SSSS 
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ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee 
PERK PAA NAAN NAAN NN AON AIANNWWA WANA ANWWNNAIAAANA 


SASSUME (jib$c_network, EQL, 1); 

1 SASSUME (jib$c~batch, EQL, $3 

1 SASSUME (jib$c_local, EQL, 5); 

1 SASSUME (jib$c-dialup, EQi, 4); 

1 SASSUME (jib$c_remote ; 

1 SASSUME (SBYTEOFFSET (uaf$b_network_access s), EQL, SBYTEOFFSET (ua (Sb network access p)©5); 

1 SASSUME (SBYTEOFFSET (uaf$b_batch_atcess_p), €aL, $BYTEOFFSET (uaf$b_network_access_s)+3); 

1 SASSUME (SBYTEOFFSET (uaf$b_batch_access_s), EQL, S$BYTEOFFSET (uaf$b_batch_access_p)+3); 

1 SASSUME (SBYTEOFFSET (uaf$b_local_access_p), EQL, SBYTEOFFSET (uat$b_batch_access_s)+3); 
SASSUME (SBYTEOFFSET (uaf$b_local_access_s), EQL, SBYTEOFFSET (uaf$b local _access_p)+5); 
SASSUME (SBYTEOFFSET (uaf$b-dialup_access_p), EQL, $BYTEOFFSET (uaf$6_local_access_s)+3); 
SASSUME (SBYTEOFFSET (uaf$b_dialup_access_s), EQL, SBYTEOFFSET (uat$b-dialup_access_p) +3); 

05 2 SASSUME (SBYTEOFFSET (uafSb_remote_access_p), EQL, SBYTEOFFSET (uaf$b_dialup_access_s)+5); 


— 


16 

N 1b-s0 1984 01:50:1 VAX-11 Bliss-32 V4.0-742 Page 42 
v04-000 1e8ep= 1882 83:20:08 DTRKSUmGMASTERSCLOGIN. SRCILOGIN.B32:1°%" «85 
: 1008 HE SASSUME (SBYTEOFFSET (uaf$Sb_remote_access_s), EQL, SBYTEOFFSET (uaf$b_remote_access_p)+3); 
: 1408 18 BI 
; 1409 18 : restrict_vector = uaf_recordCuaf$b_network_access_pJ] 
; 1410 18 $ : threebytevector; 
AUB 
: 1213 1831 i Hourly restrictions are not processed on detached jobs - they inherit 
3 1414 1336 ! their creator's restrictions and will be checked up on by the job 
3 1248 \ea7 : controller. 
: 1417 1835 2 IF .job_type EQL jib$c_detached THEN RETURN; 
$e oan: a Peaipersetaet te, 
: 1eS9 bt 3 Get the necessary components of the time of day. 
: 14ge 1840 2 LibSday_of_week (.time, day); 
3 142 1841 LibShour_of_day (.time, hour); 
Me URES 
; 1458 1844 2 ' Find out whether today is a primary or secondary day, either from 
5 lost 1302 } the UAF record or from the operator override. 
: 1462 1847 secondary dey = .BITVECTOR Cuaf_record Cuaf$b_primedays], .day-1); 
: 1430 1848 IF .exe$gl_flags Cexe$v_explicifs] ; 
> 1431 1849 2 THEN secondary_day = .exe$gi_flags Cexe$v_explicitp); 
ee 
: 1434 1836 § i Check the appropriate restriction vector, depending on — and day type, 
: 1435 185 ! and give an error message indicating whether the user .s bagged for 
3 1ea9 1823 § right now, today, or always. 
> 1438 1856 2 flags = .restrict_vector [(.job_type-1)*2+.secondary_day]; 
3 1439 1857 2 IF .BITVECTOR Cflags, .hour] 
t leek 1889 § MeeGIN 
> 1442 1860 § LF a flags NEQ RX" EFFEEF 
3 1443 1861 THEN SIGNAL_STOP (lLgi$_badhour) 
3 1444 1306 3 ELSE IF .restrict_vector ([(.job_type-1)*2+1-.secondary_day] NEQ %X*FFFPFF’ 
3 1445 1863 3 THEN SIGNAL_STOP Tlgi$_badday) 
3 1446 1864 ; ELSE SIGNAL_STOP (lgi$_restrict); 
3 1447 1865 END; 
: 1448 1866 2 
3 1449 1867 1 END; 


-BLKB 2 
SYNCH_IPL: 
-LONG 8 : 


.EXTRN EXESGL_FLAGS, EXESV_EXPLICITP 
-EXTRN EXESV_EXPLICITS 


003C 00000 CHECK_USER HOURS: 
-WORD Save R2,R3,R4,R5 ; 1767 
55 000000006 00 9E 00002 MOVAB EXESGL_FLAGS, RS : 


00872 
00000008 00874 


5E 8 C 
0000" CF ww F a 
000" cf 3 
a 
04 
5E 0D 
04 aS DD 
000000006 00 02 FB 
04 AE OF 
04 AC OD 
000000006 98 02 FB 
5 0000' fr 9 
51 6E 1. % 
54 0202 C0 01 51 EF 
05 65 00G E1 
54 65 01 00G EF 
52 0000" CF 0 
50 ar. E 
50 03 C4 
50 FA A043 18 00 EF 
3 50 04 AE €E1 
OOFFFFFF 8F 50 D1 
08 13 
000000006 8F DD 
25 11 
50 52 01 78 
50 54 Ce 
50 03 C4 
OOFFFFFF 8F FD A043 18 + Fe 
000000006 8F oD 
06 11 
000000006 8F DD 
000000006 00 01 fe 


; Routine Size: 165 bytes, Routine Base: S$CODES + 0878 


Oo OOOCOCOOCOOOOOOOOoOoO 


SoOCOOCoOoOooCOoooCoOooOooOoO 


oOoOooooooooooSo 


1$: 


™~m 
wn 


Ww 
on 


ons 
AAW 


4 01:50:1 VAX=11 Gl isse =-32 V4.0-742 

4 94:20:48 DISKSVMSMASTER: CLOGIN. SRCIJLOGIN.832; fag 

SUBL2 #8, SP 

ht: #472, UAF_RECORD, R3 

TSTL JOB_fYPE 

BNEG 1$ 

RET 

PUSHL SP 

PUSHL ne 

CALLS #2, LIBSDAY_OF_WEEK 

PUSHAB 

PUSHL Tine 

CALLS # LIBSHOUR OF _DAY 

MOVL. _ UAF_RECORD, RO ~ 

SUBL3 #1, DAY. Ri 

EXTZV R1. #1, 514(RO), SECONDARY_D 

BC S*EXESV_EXPLICITS, EXESGL FLAGS. 2$ 

EXTZV S*EXESV-EXPLICITP, #1, EXESGL_ FLAGS, - 
SECONDARY_DAY 

MOVL JOB_T R2 

MOVAW {SECONDARY DAY) CR21, RO 

MULL2 RO 

EXTZ2V #0. #24, -6(RO)CR3], FLAGS 

BBC HOUR, FLAGS, 6$ 

CMPL _—s FLAGS, H1e797915 

BEQL $ 

PUSHL #LGIS_ BADHOUR 

ASHL. #1, R2, RO 

SUBL : CONDARY_DAY, RO 

MULL R 

CMP ZV 70. #24, -3(RO)CR3], #16777215 

PUSHL #LGI$_BADDAY 

PUSHL mGIS RESTRICT 

CALLS LTBS$STOP 


Pe Se Se Se Ge Se Se Se Be Be Se Be Be Be Be Fe Ba Be Se Se Se Se Se Fe Fe Be Se Se Se Se Se Be Se Fe Be Se 


16 
Sep-1984 94:20:1 VAX-11 Bliss-32 V4.0-742 Page 44 
$ep-1984 12:41:0 DISKSVMSMASTER: CLOCIN.SRCILOGIN.B32;1 (9) 


ROUTINE check_account_expiration (time) : NOVALUE = 


16- 
14- 


Check to see if the account that this process belongs to has expired. 
If so, issue a fatal message to the user. 


i Inputs: 


uaf_record = Address of user's UAF record, if any 
i Outputs: 


! 
! 
! 
! 
i] 
! 
' 
} time = quadword date and time 
' 
' 
1 
None 


time: REF VECTOR; ! Quadword date and time 


D 
expiration = uaf_record Cuaf$q_expiration] : VECTOR; ! Use as 2 longwords 


SEER LLLP LPL LLL LPP LLL LES 
SN NNSA AAA AAPAAAOMMUINIVIVI 


WN] O DONAUES WN HO ODNAUVE WR OOODNAUSE 
(C2 G9 Cd Cd OD CD OD CD OD OD C9 OD CO. CD C9 CD C9 CD CD CD CD CD. CD CD OD 


OO O00 00000900 9 COCO OOOO NI SI NINN SIN NNO OO 


CONAUE WN (OO ONAULS WNC ODNOULSWH—OWO0 


re ee ee ee ee ee ee De ee eB ee ed ed ed ed od od ed 


ec ee me cee ee ee ee ee ee ce ee el cee ee ee ee ee oe ce ce ce el el ee ce ee De ee ee ee eed 
=POPIMIPINPINPINPIPIPIPIPIPIPNPY PPP NIPIPUDININPINOPYPINIPYDY 2 2 St 
@w 


Be Ge Se Ge Se Be Ge Sse Fe Ge Ge Be Se Se Se SH Ge Sse Ge Oe Se Se oe GH Se Se Be Ss Se Se Se Se Sets Sees Se Se Se Se ee Se te Ge Ge ee ee 


47 89 ‘ 

rif 9 Return if no UAF record or no expiration date. 

47 89 IF .uaf_record EQL 0 

re a THEN RETURN; 

48 899 IF expiration C0] EQL 0) AND (.expiration [1] EQL 0) 
48 900 THEN RETURN; 

484 901 

485 308 } : a 
486 90 : ogy pat it to the account expiration date and return if the current time 
ret 4 is less. Otherwise signal a fatal error. 

489 906 IF_.time C1J LSSU .expiration (1) 

490 907 THEN RETURN; 

491 908 

492 909 IF .time cH EQL .expiration (1] 

493 910 AND .time (0) LSSU .expiration (0) 

494 911 THEN RETURN; 

495 aig 

496 91 SIGNAL_STOP (lgi$_acntexpir); 

497 914 END; 


0000 00000 PE oe eat tees 


oW Save nothin ; 1868 
51 0000" CF 0000016C BF C1 00002 ADDL3 #364, UAF_RECORD, RI : 1891 
0000" ct D5 0000 TSTL YAF RECORD : 1896 

8 13 0001 BEQL $ : 


F 16 

LOGIN 16-Sep-1984 01:5 VAX=11 Bliss-32 V4.0-742 45 
Oe 000 18: ~hen- 1382 9}: 29: 8 DISKSVMSMASTER: CLOGIN. SRCJLOGIN.B32; fa9 * 9) 
$1 D 12 TSTL (R11) : 1899 

s.7 14 BNEO =s:«1$ : 

04 Al D 1 TSTL © 4(R1) ; 

1F 1 991 BEQL © 3$ ; 
50 04 AC D 0 1B 1$ MOVL TIME 0 + 1906 

06 «AI 04 Ad 01 1F CMPL (ROS, 4(R1) : 

14 1F 4 BLSSU 3$ ; 
05 12 6 NEQ $ + 1909 
61 0 pt 000 CMPL (RO), (R1) + 1910. 

D 1F 00028 BLSSU : 
000000006 8F DD 000 p 2$: PUSHL #LGIS ACNTEXPIR + 1913 

000000006 00 1 FB 00 CALLS , LIBSSTOP : 
04 A 38: RET + 1914. 


; Routine Size: 59 bytes, Routine Base: $CODE$ + 091D 


1 
18-5 971388 94:30:18 VAX=11 Bliss-32 V4.0-742 Page 46 
14-Sep-1984 12:41:0 DISKSVMSMASTER: CLOGIN.SRCIJLOGIN.B32;1 (10) 
GLOBAL ROUTINE update_uaf_record (time) : NOVALUE = 


5 1915 1 

; 1200 1318 1 

; 1501 1917 1 !<<< 

; 1286 1918 1 

s 128 1919 1! Refetch and lock the UAF record. 

3: 1504 1920 1! Check for password expiration and set the UAF flag. 
: 1505 1921 1! Update the last login time. 

3 1208 12 $ : Zero the login failure count. 

; 1508 1924 1! If time is missing, then only increment the login failure count. 
; 1509 1925 1! 

; 1319 19 § 1 ! Inputs: 

: 1511 19 1! 

3 121g 1928 1! time = quadword date and time 

3; 151 1929 1! uaf_rab = RAB used to read the UAF 

3; 1514 1930 1! uaf_fab = FAB used to read the UAF 

3; 1515 1931 1! 

; 1516 1336 1 ! Outputs: 

3; 1517 1933 1! 

; 1518 1934 1! None 

3; 1519 1935 1 !<== 

; 1520 1936 1 

3; 1521 1937 § BEGIN 

: 1258 1938 

; 182 1939 2 BUILTIN 

3 1524 1940 2 EMUL, 

3; 1525 1941 2 P 

: 1526 1308 2 NULLPARAMETER; 

3: 1527 1943 2 

: 1528 1944 MAP 

3 1262 1945 time: REF VECTOR; ! Quadword date and time 
3; 1530 1946 

; 1531 1947 BIND : 

3 1338 1948 Lifetime = uaf_record ares pwd Lifetime] : VECTOR, 

3; 15 1949 pwd1 = uaf_record tua f$q_pw J: VECTOR, 

3; 15 1950 pwd2 = uaf_record Cuaf$q_pwd2] : VECTOR; 

3; 1535 1951 

3: 1536 1336 LOCAL 

3; 1537 195 status, . 
; 1538 1954 § expiration: VECTOR (2), ! Quadword date and time 
; 1539 1955 expir_Sdays: VECTOR bs}: ! and another 

3; 1540 1956 delta_5days: VECTOR (2); ! Positive delta of 5 days 
3: 1541 1957 

5 1206 1328 ! 

3 154 195 ! Refetch the UAF record. 

3: 1544 1960 : 

3; 1545 1961 uaf_rab repsp_racd = rab$c_rfa; 

3: 1546 1306 uaf_ rab Crab$l_rop] = rab$m_rlk OR rab$m_wat; 

3 1547 196 F ROT (status= $GET (RAB = uaf_rab)) 

3: 1548 1964 T 

3 1549 1965 BEGIN 

3; 1550 1966 SDISCONNECT (RAB = uaf_rab); 

3; 1551 1967 SCLOSE (FAB = uaf_fab); 

: 1326 Hb RETURN; 

3; 155 19 END; 

3: 1554 1970 

3; 1555 1971 IF NULLPARAMETER (1) 


-742 Pa 47 
N. SRCJLOGIN.B32:1- > (10) 


G 


3 7 28 1378 THEN 

5 197 BEGIN 

; 1558 1974 : 

3 1223 130? : Update the number of login failures. 

: 120) 19977 uaf record Cuaf$w_logfails] = .uaf_record Cuaf$w_logfails] + 1; 

: 18e§ 1979 ! If this was tagged as a breakin attempt and we are disabling users 
$ 1298 1380 on attempted breakin, set the DISUSER flag. 

; 1566 1386 IF .break_attempt 

3 1567 138 AND .exe$gl_dynamic fLagslexe v_brk_disuser] 

: 1568 1984 THEN uaf_recordluaf$v_disacnt] = trie; 

: 1569 1985 ND 

: 1570 1986 ELSE 

; 1571 1987 BEGIN 

; 1376 1988 ! : 

s 197 1989 ! Update the Last login time. 

: 12h8 199 if .ppd Copd$v.mode) 

3 . v_mode 

: 1576 1992 § ” paris 

3; 1577 1993 4 move _quad(time [0], uaf_record Cuaf$q_lastlogin_n]) 

; 1578 1994 3 ELSE 

3; 1579 1995 4 BEGIN 

; 1580 1996 4 uaf_record Cuaf$w_logfails] = 0; ‘ 

: 1381 1997 4 mové_quad(time COJ, uat_record fuaf$q_lastlogin_il); 

3 1383 1999 4 ! Check for expired passwords. Skip if no ouptres tan period. 

; 1584 2000 4 ! Note the signed compare; it is used to catch the pre-expired 

:; 1585 500) 4 ! encoding of -1,-1. 

: 1586 002 4 ' 

: 1587 2003 5 IF (. Lifetime CO] NEQ 0) OR (. Lifetime [1] NEQ 0) 

; 1588 2004 4 THEN 

: 1589 2005 5 BEGIN 

; 1590 2006 5 ' 

; 133! $008 2 } Check first password. 

3: 1593 2009 5 EMUL (ZREF(10*1000*1000), ZREF(60*60*24%5), ZREF(O), delta_Sdays); 
3 1594 2010 6 IF (.pwd1 COJ NEQ 0) OR (.pwd1 C1) NEQ 0) 

3; 1595 2011 5§ THEN 

3 1596 sols 6 BEGIN P : 
: 1597 2015 6 S (2, Lifetime, uaf_record Cuaf$q_pwd_date], expiration): 
3; 1598 2014 6 IF .time C1) GTR .expiration (1) 

3 1599 $pi2 7 OR (.time fi EQL .expiration i 

3; 1600 016 7 AND .time [0] GEQU .expiration (0)) 

: 1601 2017 6 THEN 

3; 160 018 7 BEGIN 

: 160 019 7 uaf_record Cuat$y_pud expired’ = true; 

> 1604 020 7 IF =(uaf_record Luaf$q_pwd2_date]) eql 0 

3; 1605 021 7 THEN 

: 1606 Lt 20 § 7 write_output(ZASCID ZSTRING( 

: 1607 L 20 7? ZCHAR(beLL), ZCHAR(belT) ,ZCHAR(belL), 

3 1on8 3 3 4 "WARNING - wave pessuers has expired; update immediately with SET PASSWORD!')) 
3; 1610 Lt 20 g 7 write_output(ZASCID ZSTRING( 

3; 1611 L 20 7 ZCHAR(bel lL), ZCHAR(belT) , ZCHAR (bel L) ; 

3; 1612 028 7 "WARNING - Primary password has expired: update immediately with SET PASSWORD!')); 
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1984 :50: VAX-11 BLliss-32 V4.0-742 
aati 93:29:08 DISKSVMSMASTER: CLOGIN. SRCILOGIN.B32; 
END 
ELSE 
Stem (2 ta_5d irati ir_5days) 
. delta _Sdays, expiration, expir_Sdays); 
IF .time sb GTRU veri days (if a its 
OR (.time af EQL .expir_ gays 1 
AND .time LO] GEQU .expir_Sdays (0]) 
THEN 
BEGIN 
- , ‘vuet_record Cuaf$q_pwd2_dateJ) eql 0 


write_fao(UPLIT BYTE(ZASCIC ZSTRING( 

ZCHAR (bell) ,ZCHAR(beil), 

‘WARNING = Your password expires on !AC, !17%D")), 
ascic_day_of_week(expiration), expiration) 


write_fao(UPLIT BYTE(ZASCIC %STRING( 
ZCHAR(belL) ,ZCHAR(bel lL), 
"WARNING = Primary password expires on !AC, !17%D")), 
- ascic_day_of_week(expiration), expiration); 
END; 
; END; 


Check second password. 
IF (.pwd2 COJ NEQ 0) OR (.pwd2 £1] NEQ 0) 
THEN 


fetime, uaf_record Cuaf$q_pwd2_date], expiration); 
J_GTR .expiration C1] 
1] EQL .expiration (1) 
0] GEQU .expiration (0]) 
BEGIN 
uaf_record Cuaf$v eve 8 
write_output(ZASCID ZSTR 
ZCHAR(belL lL), ZCHARTbeLL) , ZCHAR(bell), 
"WARNING - x penis password has expired; update immediately with SET PASSWORD!')); 


ELSE 


BEGI 

SUBM (2, delta _Sdays, expiration, expir_Sdays); 
IF .time eh GTRU veipir pdays { r , 
OR (.time fa EQL .expir_5days (1 

Re 0] GEQU .expir_Sdays (0]) 


H 
write_fao(UPLIT BYTE(ZASCIC ZSTRING( 
ZCHAR(bel lL), XCHAR(belT), 
"WARNING - Secondary password expires on !AC, !172%D')), 
END ascic_day_of_week(expiration), expiration); 


upived] = true; 
ING( 


END; 
END; 
END; 
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! Update the UAF record and close the file. 


SDISCONNECT (RAB ="uaf_rab): 
SCLOSE (FAB = uaf_fab)? 


086 
O8 
nt SUPDATE (rab = uaf_rab); 
090 
$93 
$38 END; 


»-PSECT SPLITS,NOWRT,NOEXE,2 


6F 59 20 2D 20 47 4E 49 sf 36 41 57 07 97 07 00198 P.ABS: .ASCII <7><7><7>\WARNING - Your passwor\ : 
fe @& fF @ fs O 7 @&@ Ya 3 iar : 

20 64 65 72 69 70 78 65 ee 7= 61 68 $0 $8 00181 ASCII \d has expired; update immediately with S\ ; 
74 61 69 64 65 6D 6D 69 60 65 (4 61 64 70 75 001CO 3 
53 20 68 74 69 77 ¢f 79 gf 65 OO1CF : 

00 00 21 44 52 4F 57 53 53 41 50 20 54 45 00109 ASCII \ET PASSWORD! \<0><0><0> : 
010E0040 QOO1E8 P.ABR: .LONG 17694797 : 

00000000' OO1EC ADDRESS P.ABS § 

72 50 20 2D 20 47 sf 49 4E 52 41 57 O7 O7 O07 ah P.ABU: .ASCII <7><7><7>\WARNING = Primary pass\ : 
73 73 61 70 20 79 72 61 6D 69 OO1FF : 

65 72 69 70 78 65 20 73 61 68 $f $8 se gf 77 00209 -ASCII \word has expired; update immediately wit\ ; 
65 6D 6D 69 20 65 74 61 64 70 75 § B 64 00218 3 

74 69 77 20 79 6C 65 74 $I 69 00 ¢/ 3 

21 44 52 4F 57 53 53 41 50 20 54 45 53 20 68 00231 ASCII \h SET PASSWORD! \ 3 
010E0050 00240 P.ABT: .LONG 17694800 F 

00000000' Bos ts ADDRESS P.ABU s 

6F 59 20 2D 20 47 4E 49 4 38 41 57 07 O07 sf 0248 P.ABV: .ASCII \/\<7><7>\WARNING = Your password ex\ : 
78 65 20 64 72 6F 77 #73 #73 61 #70 20 72 75 00257 3 

21 20 2C 43 41 21 20 6E 6F 20 73 $2 iG: 99 {9 bases ASCII \pires on !AC, !172%D\ : 
72 50 20 2D 20 47 sf 49 GE 52 41 57 6? 07 32 00278 P.ABW: .ASCII \2\<7><7>\WARNING - Primary password\ 3 
ja @ tf 3 t @ Fe $8 79 72 61 6D 69 00287 3 

43 41 21 20 6€ 6F 20 73 65 72 69 70 78 65 20 00295 ASCII \ expires on !AC, !172%D\ : 
44 25 37 31 21 20 2c Sh an 3 

65 53 20 2D 20 47 4E 49 4E 38 41 57 O07 O7 O7 DOsAe P.ABY: .ASCII <7><7><7>\WARNING - Secondary pa\ : 
61 70 20 79 72 61 64 $f 6F $3 Sha ; 

69 70 78 65 20 73 61 68 20 64 72 6F 77 73 73 002C ASCII \ssword has expired; update immediately w\ ; 
D 69 20 65 74 61 64 70 75 ey 38 64 65 if 00204 3 

77 ¢0 79 6C 65 74 61 69 64 65 002E3 : 

52 4F 57 53 53 41 50 20 54 45 5§3 60 88 oe $7 09 e ASCII \ith SET PASSWORD! \<0><0> : 
01560053 0 4 P.ABX: .LONG 17694802 3 

00000000" 00 ADDRESS P.ABY : 

65 53 20 2D $9 47 46 49 4E 52 41 07 O07 34 98 P.ABZ: .ASCII \4\<7><7>\WARNING - Secondary passwo\ 3 
6F 77 73 61 70 39 79 72 61 64 of 6F $3 1 : 

21 20 6€ 6F 20 73 65 é $9 70 78 65 § 64 72 00 ¢ ASCII \rd expires on !AC, !172D\ ; 
44 2 a Ee. C 43 41 00 3 
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#3, WRITE_FAO 

UAF RAB 

#1, SYSSUPDATE 

UAF RAB 

A SYSSDISCONNECT 
#1, SYSSCLOSE 
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LOGIN 
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; Routine Size: 
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; Routine Size: 


=—PNOPIPOPRINPINIPYPONINUNININOPUDR) 2 9 ts st 
@ 


1 | 
16-Sep-1984 01:50:18 VAX-11 Bliss-32 v4.0-742 Page 54 
14-Sep-1984 12:41:09 DISKSVMSMASTER:CLOGIN.SRCILOGIN.B32;1 = (12) | 
GLOBAL ROUTINE set_sysprv: NOVALUE = | 
leaoe 
: Enable SYSPRV privilege in the current privilege mask in 
: in order to obtain acess to system-wide files such as 
SYSUAF and SYSALF. 
Inputs: | 
; None 
Outputs: 
None | 
BEGIN 
LOCAL | 
privmask:  BBLOCK (8); ! Privilege mask 
. | 
quadword = privmask: VECTOR; ! Access as 2 longwords 
quadword [0] = 0; ! Initialize mask 
quadword [1] = 0; ' 
privmask Cprv$v_sysprv] = true; ! Set SYSPRV bit in mask | 
SSETPRV(PRVADR = privmask, ! Disable SYSPRV privilege | 
ENBFLG = 1); | 
END; 
-EXTRN SYSS$SETPRV 
0000 00000 ENTRY SET_SYSPRV, Save nothing ; 2125 
5E 04 C2 00002 SUBL2 #4, SP ; 
7E D4 000 CLRL QUADWORD ; 2150 
04 AE 04 00007 CLRL QUADWORD+4 : 2151 
03 AE 10 88 QOO0A BISB2 #16, PRIVMASK+3 : 2152 
7E 7C 9000 CLRQ = =(SP) ; 2155 
08 AE 9F 0001 PUSHAB PRIVMASK : 
01 DD 0001 PUSHL #1 : 
000000006 00 04 FB 00015 CALLS #4, SYSS$SETPRV : 
04 0001C RET > 2157 | 


29 bytes, Routine Base: $CODE$S + 0B49 
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Liss-32 V4.0-742 Page 55 LO 
MASTER: CLOGIN.SRCIJLOGIN.B32; 1 ° aa vO 
GLOBAL ROUTINE clear_sysprv: NOVALUE = 
leeo 

i 


Disable SYSPRV privilege which is given because the program 
is normally installed with it in order to obtain acess fo 
system-wide files such as SYSUAF and SYSALF. The privilege 
is not disabled if the process is authorized to have it. 


Inputs: 


None 
Outputs: 


None 


BEGIN 


LOCAL 


privmask: BBLOCK (8); Privilege mask 


IND 
quadword = privmask: VECTOR; 
SSETPRV(PRVPRV = i Papen 
PRMFLG = 1); 


Access as 2 longwords 


SENNA AAA AAA AA AIAN BP 
MEW =O OONO UNF WUNR "OC O@DNOAUEFWR “OVD ONOU EW —OVOnou 


Get authorized privilege mask 


If authorized to have SYSPRV, 
then do nothing 


if per tnnek Cprv$v_sysprvJ 
RETURN; 

quadword (0) 
quadword (1) = 0; 
privmask Cprv$v_sysprv] = true; 


SSETPRV(PRVADR 
ENBFLG 


0; 


Initialize mask | 
Set SYSPRV bit in mask | 
Disable SYSPRV privilege 


- Agmece: 
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END; 


0004 00000 -ENTRY CLEAR SYSPRV, Save R2 : 2158. 
52 000000006 00 9 0002 MOV SYSSSETPRV, R2 ; 
| SE 08 C2 00009 SUBL2 #8, SP ; 
SE dD 0000C PUSHL SP > 2185. 
01 DD OO00E PUSHL #1 ; 
—E 7C€ 00010 CLRQ. = = (SP) ; 
62 04 FB 0012 CALLS #4, SYSSSETPR ; | 
10 03 AE 04 £0 001 BBS #4, PRIVMASK+3, 1$ : 187 
| 6f C OOO1A CLRQ QUADWORD > 2191 | 
03 AE 1 88 001C BISB2 #16, PRIVMASK+3 : 3193 
7E 7C 00020 CLRQ. 9 = (SP) > 2196 | 


i 
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p= 198% 93:30:18 VAX-11 Bliss-32 V4.0-742 Page 57. 
p-1984 12:41:09 DISKSVMSMASTER: CLOGIN. SRCIJLOGIN.B32;1 (14). 
GLOBAL ROUTINE clear_log_io: NOVALUE = 


Disable LOG_IO privilege which is given because the program 

: is normally installed with it in order to force termina 
: hangups in case of error. The privilege is not disabled if 

the process is authorized to have it. 

Inputs: 

; None 

Outputs: 

None 

BEGIN 
LOCAL 


privmask: BBLOCK (8); 


Privilege mask 


D 
quadword = privmask: VECTOR; Access as 2 longwords 


SSETPRV(FRVPRV 
PRMFL 


Mommas Get authorized privilege mask 


IF .privmask Cprv$v_log_io] If authorized to have LOG_I0, 
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RETURN; ! then do nothing 
quadword (0) = 0; ! Initialize mask 
quadword (1) = 0; 
privmask (Cprv$ _log_io) = true; ! Set LOG_IO bit in mask | 
SSETPRV(PRVADR = privmask, ! Disable LOG_IO privilege | 

ENBFLG = 0); 
END; 


0004 00000 -ENTRY CLEAR_LOG_IO, Save R2 : 2199 | 
52 000000006 00 9 90002 HOVAB SYSSSETPRV, R2 ; | 
F 08 C2 0000 SUBL2 #8, SP : 
s1 38 Gaooe UME bse 

ih P if CLRQ.  =(SP) : 

62 04 Fe 001 CALLS #4, SYSSSETPRV ; 
of 9 1 TSTB = PRI MASK : 2228 
be M4 019 ant dua WORD : 2232 | 
6E 80 He 88 001B BISB2 FOB PRIVMASK : 353 | 
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GLOBAL ROUTINE validate_uafrec (username, password!, password2): NOVALUE = 


: Lookup the specified username in the authorization file 

: and validate the passwords. Apply breakin detection / evasion 
as appropriate. 

| Inputs: 

: username = Address of descriptor of username 

; password! = Address of descriptor of primary password 
password2 = Address of descriptor of secondary password 
Outputs: 

i] 

' 


uaf_record = Address of UAF record for user 


username: REF V 


ECTOR, Address of username descriptor 
password: REF veer R 


‘ ! Address of password #1 descriptor 
password2: REF VECTOR; Address of password #2 descriptor | 
LOCAL 
status, : 
arglist: VECTOR (2); Argument List for CIA_SCAN 
status = get_uafrec(.username); Read the UAF record 
Validate both passwords 


IF .uaf_record NEQ 0 
HEN 


0 
0 


BEGIN 
4 wg (status = lgiScheck_pass(.password!, .uaf_ record, 0)) 


CHSCOPY((fail_password [C0] = MINU(.password! [0], ! Save password 
nsa$s_pkt_password)), 
gpessverd? C1), ! for auditing 


nsa$s_pkt_password 
.fail=password (1J5 

ELSE GIN 

IF .bblock past recere uafsa_pude)-0.0.36 +0 NEQ 0 

OR .bblock Cuaf_record Cuaf$q_pwd2),4,0,32,0] NEQ 0 


THEN 
if er (status = lgi$check_pass(.password2, .uaf_record, 1)) 
CHSCOPY((fail_password [0] = MINU(.password2 [0], 
nsa$s_pkt_password)), 
gpesouerds (1), 


nsa$s_pkt_password 
.failZpassword (1)5; 
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14-Sep-1984 41:0 
IF .status EQL =4 ! Special invalid password status? . 
THEN status = Lgi$_invowd; ‘ 
IF NOT .status : 
THEN uodate_uaf_record(); ! Increment login failure count ‘ 
ergt istl0} 21; : 
am, NOT .status ! If error detected, ° 
NBEGIN ; 
arglist(1) = 0; ! Call CIA_LSCAN, with 0 ; 
IF NOT SCHKRNL (ROUTIN = cia.scan, / which means eeheck this ; 
4 seine ARGLST = arglist) i for a suspect : 
; en security_audit(nsa$k_rectyp_logb); ! Audit the breakin . 
E 3 
BEGIN : 
arglistC1] = 1; ' Call CIA_SCAN, to see if : 
3 IF NOT S$CMKRNL(ROUTIN = cia_scan, | this might be an intruder. 
4 ARGLST = arglist) 
3 THEN status = lgi$_evade; 
§ END; 
§ ppd oar lststatus] = .status; ! set final job status 
IF 
; TH NEN SIGNAL *STOP( igi. notvalid); ! say it was a password problem 
1 END; 
07FC 00000 ENTRY aoa LUAFREC, Save R2,R3,R4,R5,R6,R7,R8,-; 2240 | 
5A 00000000G 00 9€ 00002 MOVAB SYSSCIKRNL R10 3 
59 00000000G 00 9€ 00009 MOVAB SCAN, R 3 
58 00000000G 00 9€ 00010 MOVAB CGIScneck PASS, R8 : 
57 0000" CF 5 00017 MOVAB UAF_RECORB, R7 3 
5E 08 C2 O001C SUBL2 #8, SP 5 
04 AC DD O0O1F PUSHL USERNAME : 2270 | 
0000v CF gf FB 00 $ CALLS #1, GET_UAFREC ; 
56 0 00 000 MOVL RO US 3 
50 67 bg 002A MOVL UAF RECORD, RO : 2272 | 
70 13 0002D BEQL $ : 
43 D4 0002F CLRL -(SP) 3; 2275 
50 DD 00051 PUSHL : 
52 08 AC 00 88 ; MOVL PASSWORD, R2 : 
36 DD PUSHL : 3 
68 FB 00039 CALLS R LGISCHECK. PASS 3 
56 0 pO 0003C MOVL RO STAT MS 3 | 
A E8 0003F BLBS STATUS ; 
0 $ D0 0042 MOVL  — (R2) éo'® > 2277. 
iF D1 0004 CMPL =O, #31 ; 
2E 1A 00048 BGTRU 3$ 3 


; Routine Size: 234 bytes, Routine Base: $CODE$ + O0BBB 


7 
LOGIN 16-Sep-1984 1 VAX=11 Bliss-32 V4.0-742 1 
v04-000 1a-Sep- 984 03:3 :0 DISKSVMSMASTER: CLOGIN. SRCJLOGIN.B32; ie oe 48} 
; BF bo pence 1s ee UAF_RECORD, RI S ooss| 
24 015c C1 : Oct MOVAB WRT RIS rb : | 
60 D 54 TSTL (RO) : 
1 096 BNEQ  2$ : 
04 AO D 09 TSTL  4(RO) : 2286) 
3A 13 00058 BEQL 46 S$ : 
1 DD 00050 28 PUSHL #1 + 2288. 
51 DD 0005F PUSHL 1 : 
52 0c AC DO 00061 MOVL  PASSWORD2, R2 ; | 
52 DD 00065 PUSHL R : | 
68 9 FB 0067 CALLS #3, LGISCHECK _PASS : | 
56 DO 0006A MOVL RO, STATU : | 
17 56 £8 0006D BLBS = STATU ; 
50 62 DO 00070 MOVL  (R2), R : 2290 | 
iF 50 01 00073 CMPL RO, #31 : 
03 1B 00076 BLEQU 4$ : 
50 1F 00 00078 3$: MOVL #31, RO : 
30 A7 50 p0 0007P 4$: MOVL RO, FAIL_PASSWORD é 
1F 00 04 B2 54 29 2c Bea e MOVCS RO, @4(R2), #0, #31, QFAIL_PASSWORD+4 : 2295 
FFFFFERFC 8F 56 Di 00087 5$ CMPL STATUS, #-4 : 2297 
07 12 0008E BNEQ : 
56 000000006 8F D0 0009 MOVL #LGIS INVPWD, STATUS : 2298 
05 56 €8 00097 6$: BLBS STATU : 2299 
FCFE CF 00 FB OO09A CALLS #0, UPDATE UAF RECORD ; 2500 
6E 01 DO OO09F 7$ MOVL #1. ARGLIST : 2303 
18 56 £8 OOOA2 BLBS TATUS, 8 + 2304 
04 AE D4 OO0A5 CLRL ARGL IST +4 > 2307 
4200 8F BB OO0A8 PUSHR  #*M<R9 : 2309 
6A 02 FB OOOAC CALLS #2, CYSSCMKRNL : 
20 50 £8 OOOAF PLBS RO. 9$ : 
04 DD 000B2 PUSHL # : 2311 
000000006 00 01 FB 000B4 CALLS #1, SECURITY_AUDIT ; 
15 11 0008B BRB + 2304 
04 AE 01 DO 000BD 8s: MOVL #1, ARGLIST#4 + 2315 
4200 8F 8B 000C1 PUSHR #*M<R : 2317 
6A 92 FB 00C¢5 CALLS #2, RY SSCHKRNL ; 
07 50 €8 000C8 BLBS sR : 
56 000000006 af DO 000¢B MOVL  &#LGI$ EVADE. STATUS : 2318 
000000006 00 6 dO 90002 9$: MOVL STATUS, PPD+24 : 2321 
0D 56 £8 0000 BLBS STATUS, > 2323 
000000006 BF DD 000DC PUSHL mGlS NOTVALID + 2324 
000000006 00 01 FB GO0Ee CALLS LTBS$STOP : 
04 OOOES 108: RET : 2326 
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Lookup the specified username in the authorization file 
and use it without checking any password. 


i Inputs: 
username = Optional address of descriptor of username to look for. 
i Outputs: 


i Return Value: 


8 ee | 


true if UAF record eytcens Tet ty read OR if UAF is unavailable 
and the terminal is OPAO: 


! 
{ 
! 
' 
' 
1 
' 
' 
uaf_record = Address of UAF record for user 
' 
! 
false otherwise 


BEGIN 
BUILTIN 
NULLPARAME TER; ! True if no parameter specified 
MAP 
username: REF VECTOR; ! Address of username descriptor 
EXTERNAL 
ctl$t_username: BBLOCK; ! Current username 
LOCAL 
status, 
uaf_desc: VECTOR (2), ! Descriptor of UAF record buffer 
desc: VECTOR (2); ! Username descriptor 
co NULLPARAMETER(1) ! If parameter specified, 
| 
BEGIN 
desc [0] = .username £0: ! then use given username 
desc [1] = .username (1); 
END 
BEGIN 
desc £0} = jib$s_username; ! Setup descriptor of current username 
desc (1) = ctl$t_username; 
END; 
uaf_desc [0] = yess Lengths : Setup descriptor of buffer 
status = LIBSGET_VM(Gaf_desc (0), uaf_desc (1]); ! Allocate buffer 
IF NOT .status ! If error detected, 


SIGNAL _STOP(.status); ! then signal fatal error 
status = lgi$searchuser(desc, ! Search UAF for authorization record 
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13 -$ep-1984 01:5 VAX-11 Bliss-32 V4.0-74 63 
14 2-08-1382 93: 24} 68 Disk SVMSMASTER: CLOGIN.SRCILOGIN.B32; y29 (16) | 
0, ! Skip password checking ; 
uaf desc, ! Address of Cooter Soter of buffer : 
uaf_fab ' FAB for UAF acces ‘ 
uaf “rabs; ! RAB for t-~ egces ; 
IF .status EQL =-2 ! Special invalid ornate status? : 
THEN status = lgi$_nosuchuser; : 
IF NOT .status ! If error detected, ; 
THEN Hy 
BEGIN 3 
uaf -re how no user record . 
pcb- Eset fei rPosit1oN<pcbsy, peceulttld = 0; ' and no mandatory auditing ; 
ppd~ l_lststatus] = .status;! Initialize Iststatus | ; 
IF .status EQL lgi$_nosuchuser ! If invalid username | : 
THEN RETURN .status; ! return the error | : 
; 
i If user is at the console, allow login. ; 
Otherwise, signal a fatal file access error. ; 
iF CHSNEO (.phy_term_nameCOJ, .phy.term.namel13, 6, UPLIT BYTE(*_OPAO:"?) | : 
cm SIGNAL_STOP(igi$_fileacc,0,.status); | : 
; 
LSE : 
BEGIN : 
uaf_record = .uaf desc (1); ! Mark UAF record present ; 
cb_sts [$81 TPOSITION(pcbSy secaudit)]. : 0; ! Guess at no mandatory audit ; 
F Tuaf_record Cuaf$v budity If UAF _*78 mandatory auditing | 
hn pcB_sts CS$BITPOSTTION(pcb$v_ sbeaudleli © ! then do auditing | 
RETURN 1; 
END; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
3A 30 41 50 4F SF 0033D P.ACA: .ASCII \_OPAO:\ ; 
-PSECT S$CODES,NOWRT,2 
OOFC 00000 -ENTRY GET_UAFREC Seve ty R3,R4,R5,R6,R7 : 2327 
57 000000006 8F 00 00002 MOVL ALGTs NOSUCHU R? ; 
56 000000006 00 9E 00009 MOVAB LIBSSTOP, Roo 3 
55 0000° CF 9 Bete MOV UAF _RECORD, R5 : 
5€ 10 001 SUBL #16, SP 3 
6¢ 0018 TST (APS ; 2365 
E 13 QOO1A BEQL 1$ 3 
04 AC 05 QO0IC TSTL 4 (AP) 3 
09 13 QOOTF BEQL 1$ 3 
50 04 aC 00 00021 MOVL USERNAME, RO > 2368 | 


oo PRGA DOMES ht Ging SOTO EE. Rae TL se PO AS ag! ~ GE ae 


> OOO oe 66 6 FS 6S OS 6S HS HS HS 8S HS 8S FS 6S OS Se He FS OS Fe FS OR Se FS FS FS Fe FEES EE ES FSFE FS FS SH SSCS CHESS *S*S SSSR SS SESE SE *E*“S*S HES *S 


~ 2 Wn ze o on ™M oOo OMe-wOOd oOo Ww ~ —-N TF WOON 
“oo orrrr oO oo oOo OOCoOAaa GF oO o Cer eee 
- Mmmm mo Ms M MMMMmmma ms ~— w MTT wa 
* mucucucucy am % Nm cCuCUCVCUTUN TG ot ™N mcm cucu 
Le.) Pe Fe Fe Fe FS FS FS FS FS FSFE FS FS FSS FSFE TSS FSH FS FS FSS HSS TSHR FS FS FS SCS FSFE FR SR CR FREER FSFE FE Oe 
Oe) 
ae 
oe q 
N 
Le) & 
oO 
= 
2 
ene . 
| oo oO 
oO R 
j | 
tn} . 
| Vv wr 
Nae + 
rw w 
| | = 
ie 4 
o~_ 2 
“J ‘ 
zo = 
>— a 
ws og w a 
| nN + _ « 
ma vw ‘ So 
tw wn > =) 
ne w « = w 
awn a uw a « | 
<< w” @e qd } 
~= ~w > u A | 
ow ww = =x ~— . <x<or- 
= - + > VY ~» N uw (=) sac .™ | 
-> Qa i a a + ~ = va eg | 
—A zi aad So =z ~w “" a <= zo s nw | 
| tw ww Seuss wWnn - ww st gente 4 eo 2 we FToOOr- i 
xm 4) wwe ODM Ww “Dz DwWOoacaoc « 4 oY +22 | 
<— Ww NHDCLSE a =) ae —-to = —A wO~ 1 | 
>a Aa wD MMO + 2o904 —< - <M ww ss - uO MLOD ' 
Ot swwet- nna OKFW KFONUWNN WY WwW ” — WWOLVO 
. K—NOOUMDDYaeuwan 4wUD MWADeEDFD FD Ket BSR AY Aacwaods 
~ Wane 11 alan tt aw - - -—-— - we Fae 'e 
SO No teuw = sf wuunw + +f *sfudqaq ad +a ww + wu sees 
OO Cerne — ae evr} — ee WINN OF-- AP. DOE SE HE XC MEY UMM IMO 
-—O ~WRVBDDEOMMASDII I ABIEHwTTCBwWODBMN NOM AARMY | BBrDDZVZZz2He 
on | 
mse rt + 4 @Qonm @® | 
oe +e a3<a<an #“vw@daat aw N wn + WwW N 
—~N COO YIN TEV TygTtTrTyTIyIysysagyoauvnsjagy vos TUE COs oc DM 
So— FOP PrNK)IU>04 WMVMVKYAH USA wrVuGaer>raw>-aA GuHUEeunuIa>rPoUvn>- 
OT®OOOD 2 ZO UDA DDD YI TD IOZT ZO IVIOFZZOws wDIsu7TDetecoom-ow 
pe 4 ZMOTFFAAYVBMAGCAAAVAVZEVMOTOOVZVOZAvY DMAVCAMETOOL& 
oan 
eur 
j ao 
aa 
-@®@® ao oT - 
mm “A ot Pf Pe eb A 
ame - ~w ~” wv wn oO ~ 
—— MNOS OM DY OOWOMMO Ss OLN VPIMNDW OOVNG VW NO VWONMOMOn ws eu 
NOUN AT TT TANI OO OPR-P-P-F- OCTODDDOOOOO eect ac Oooaoaoaw 
Or OwVu ue MOO O@Muvwuwsu DO-n-wotoysrorwoysoa Mowom-COoO-aoyr wm 
~— OOMOO uu OWOKLOOO OC u OO ODMWOGCO-BON —BOOGBbu-—-AAaAWeasaO <= 
oOo 
OOVS0& WWVOT ST HOM WWWINOT MP OTST NR TW MWe 
WOOCOO ff BOMUWNO ZUELPF-. LOUMMOMOMOMOW LOCUM. COO— LOCOCO + 
PP 
o - o [v) 
OowVuv VLvro oO oo o Y a 
owoo Qo- - wo o Oo oO 
own “ o Oo Ld 
oo “ oO o A 
Oo So 
Oo o 
oO Oo oe. 
oOo oO ° 
mw Us ovwm /O owe TNO OT CO WwW oOo NOOMO A) 
oo ode Oomno wo Omnemd MmMUowW OM WW WD oOo ONMOLUM @ 
a 
oOo oOo o c 
wo o ao w ~» o w wey - 
oo o o u“ wn o w aw a 
oO o «™ “ o -~ | 
o Co « - o ou So 
o o u« Oo « 
Oo o u« oS 
Oo Co ue o 
oO o uw oO 
oOo w bd 
oO Oo ,) 
a 
os 
~ 
2a 
wn 
oa 
; - 
| 
av 
& N 
- 
” 
a 
c | 
oe ' 
Ss 
4 3 
« 


18s 


oO 
= 
=" 


Det et et ee et et et et ed et et et et et 


ae ae noe cea 
CNAME AN (OOD NAU EWN SQ OODONOUE Wr 


POPIPONIPONIPUNINO PPE nononononononofonsnonofenoninor 
WAG 


po jolealeloleolojlelelolelelolelolelelalelolelelolelelolelola) 


fw 


SVS 
ERERER 
OusFwn—owo 


polelejejelejejejlej—oleq) 
wns 


WN —O OOnOulwnr—o 
AOE WN 0 OD NOME WIN © ODNOA UE WN 8 ODNOA UE WWN 3 O OODNOU EWR OOONOUSWN OO 


PRORIFEPDNINININININGNNNINYINININININININININININININININININININMININPO PUNY NIPONINIPOPONONONONU NE PoNoNoNoNonononofny 


ee ee ee a et ek el ed el el ak a et el ll kl kk a et a et et Se ek et et ek 


POPIPONIPIPYNIPNININININININYNINIAIPINININININININININININIPINININPINININPININININIDY 2 OS SS SS SO 


SSNS NN NA AAA AAA AAA MAMI BB BEE BE EWAN 


MoPonorunonononNoNononononononofnory 


GLOBAL ROUTINE lLogout_message: NOVALUE = 


i Write the logout message to the output stream. 

Inputs: 

full logout = True if should output full display, else brief 
Outputs: 
om None 
BEGIN 
BUILTIN EMUL; 


EXTERNAL ROUTINE 
Libs 


subx; ! Subtract 2 quadword numbers 

OWN 

bufio, : Number of buffered I/0's 

wspeak, : Peak working set size 

dirio, ! Number of direct I/0's 

virtpeak, ' Peak page file size 

pageflts, ' Number of page faults 

volumes; ! Number of volumes mounted 
LOCAL ; 

cputim: VECTOR C2], ! Total CPU time 

lLogintim: VECTOR Ce], ! Login date/time 

curtime: VECTOR (C2), ' Current date/time 

username: VECTOR tS4° ! Descriptor of username 

procname: VECTOR C2) ! Descriptor of process name 

username_buffer: VECTOR (16,BYTE), 

procname_buffer: VECTOR (16,BYTEJ, : 

jpi_list: BBLOCK (128); ! GETJPI item List 


username ft} . username_buf fer; 


procname procname_buffer; 

pi_list 9.0.16. } = ZALLOCATION(username_buf fer); 
pi_list (2,0,16,0] = jpi$_username; 

pi_list 470-35: J = username_buf fer; 

ipiztist 8,0 0] _= username : 

1pi-tist 12,6,16.0 = FALLOCATION(procnane_buf fer); 

s -0,16,0) = _prcnam; 

ipizlist 16,0,32,0) = prochene, pul fers 

pi_list 30.0. 0) = procnane (0); 

ein list 4,0,32,0) = 0; 

SGETJPICITMLST = jpi_list); ' Get username and process name 
If .ppd Cppd$v_mode) ! If batch job, 
THEN 
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LOGIN 16-Sep-19 1:50:1 VAX-11 Bliss-32 V4.0-742 Pa 
v04-000 14- ety 7 93; 241: 09 DISKSVMSMASTER: CLOGIN.SRCIJLOGIN.B32;1 
; 2068 477 write _fao(UPLIT BYTE(ZASCIC " !AS job terminated at !%D"), 

; 2069 478 user name, 

; 2070 479 

3 48 ret Fue IF NOT -subprocess ! else if main interactive job, 

3 $598 eee op OES fao(UPLIT BYTE(ZASCIC * !AS logged out at !%D"), 

: 2074 48 usernane, 

3; 2075 484 

; 2076 485 ! Else, if subprocess 

; 2077 486 atte fao(UPLIT BYTE(ZASCIC ' Process 'AS logged out at !%D'), 

; 2078 487 “pan ame, 

; 2079 488 

; 2080 489 

; 2081 490 IF “! -full_ logout ! If brief message desired, 

: 208 2491 2 THE 

: 208 sees 2 NRETURN; ! then skip rest 

>; 2084 249 § 

; 2085 P 2494 setup_jpidvi_ tet Cpt, aiat 

; 2086 P 2495 2 pi$_bufio,4,bufio, 

; 2087 P 2496 § pis_ wspeek é -wspeak, 

; 2088 P 2497 pi$_dirio, dirio, 

: 2089 P 2498 2 pis_ virtpeak, ? -virtpeak, 

; 2090 P 2499 2 pis_ pagetses 4-pageflts, 

; 2091 P S250 2 pi$_volumes é volumes, 

> 2092 P 2501 é ipise cputim,8,cput im 

3; 2093 P 2502 AP5S phe lo Soint in: 8, logintim, 

3; 2094 2503 2 0,0); 

: 2095 2504 2 : ho 

: 443 $202 § SGETJPICITMLST = jpi_list); ! Get statistics 

: 2098 2507 2 EMUL(ZREF(-100000) ,cputim, REF (0), cputim); ! Convert MS to 100 NS units | 
3; 2099 2508 2 '" and negate to convert to delta time 
; 2100 2509 2 : 

: $i05 s219 § SGETTIM(TIMADR = curtime); ! Get current time 

3 $0? a § LIBSSUBX(Logintim,curtime,logintim); ! Subtract giving negative elapsed time 
3 $108 $31 2 write_fao(UPLIT BYTE(ZASCIC '!/ Accounting information:')); 

: 2106 2515 2 write_ fao(UPLIT BYTE(ZASCIC 

3; 2107 2516 2 ay. eres +4 2 count: '13UL Peak working set size:!6UL"), 

: 2108 2517 - buf wspes 

; 2109 318 write_ ragcuPLit BYTE CRASEIC Shae 

3: 2110 519 Bjrect 1/0 —— '13UL Peak page file size: ‘!6UL"), 

3 $13] $250 .diri virtees 

; 118 521 2 write_ tag (UPLit BYTE ( ReCré 

; siiz $25§ Page Pg ae '13UL Mounted volumes: '6UL"), 

: sii? 2594 write_ rap tPCiT 8 BYTECHASCIC s 

3 2116 2525 2 Charged CPU time: !%D Elapsed time: !%D"), 

3 2117 526 § cputim, logintim); 

3; 2118 527 

3 2119 528 1 END; 


~PSECT SPLITS,NOWRT ,NOEXE ,2 


7019 


-o 


LOG 
VO4 


arr 


oonmner =——] Us 
nmr 

WlLwm OO wo 

WAAR rmcmrorror 


OUCAN NN SO 
S3S OS 
Son Vimow w“WJow PORAOIW OW--COO 


Sn BO SNRON OFT Oro~ 
on oO 

MAA 
"WO OFWMOU FW Nor 


oO 


Ane COW fr 
we 


Nm 
os 


= 
™ 
AVS WOW NAN NNWNSO NN ONO 


OVUM PURO WORF SNS VLT YW BNET 
AG NNN PNM ONE COMO 
oN WSO COW WO—YVWw "U0 —) 


NN AOR O&O 


ao 
Ws & 
ONWE OO NDOVDA OOM SD VW JNO NIM Pw 


PRNAMIANPNINWA NP NPN ANIONS ONwnoory 
OOWOAAOOCOOMOMOSWDOWDO- fF NOLOMO 
PPP REELS EPMA NNW 
CWOONAOULS WRN —OTMMMNIOVOW FS OOOVNOUUsS 


WA NRMMNNNVIWNIANO WP NRW SOS IO Oo 
PKU H-OOO PF HS NOMNPS — MOO FOTN 1 0W 


ROW NAOWA SPW CONOR ONE OS 
ULPo UMNO OUPFO NYTUNTZO UW —Ue 
PAA LAL MIMNMLOUNLS SOULE ON Omron 
UWIAA TOONACLLSOMOVMNAO NO r— 
RNAI NNINIVNIVISNMUIANANMAN Hrorrwonrr 
OWS OUI™MOOOMOOMOMDOONOM™ NOOCO-O 
COOCCOCOCOCOOOOOCOOOOCOOOCOOOOOOOOO 
loleleleleleleleleleleleleleolelelolelolelelololololololo!) 


a - -cG 


Ooooooooooococoeo 
COOoCooooooooooo 
MOE MDOLE™PWMONO 


WOOCWOWMNMOGSOOO 
PUWNNIN  — — OOooo 


—ooo om 
Ooeorf Of 


$ep-1984 01:50:18 VAX-11 Bliss-32 V4.0-742 Page 67 
etsy 04:20:48 DISKSVMSMASTER: CLOGIN. SRCJLOGIN.832;1 . 3} 
P.ACB: .ASCII <27>\ !AS job terminated at !%D\ 
P.ACC: .ASCII <23>\ !AS Logged out at !%D\ 
Pp 


~ACD: .ASCII <31>\ Process !AS logged out at !%D\ 


P.ACE: .ASCII <27>\!/ Accounting information: \ : 

P.ACF: .ASCII \: Buffered I/0 count:!13UL Peak wo\ : : 
ASCII \rking set size: !6Ui\ : ; 

P.ACG: .ASCII \: Direct 1/0 count: !13UL Peak pa\ : : 
.ASCII \ge file size: !6UL\ : 

P.ACH: .ASCII \: Page faults: 113UL Mounted\ : : 
-ASCII \ volumes: 16UL\ : ; 

P.ACI: .ASCII \= Charged CPU time: !%D Elapsed time\ ; : 


eASCII \: S2DN 
-PSECT SOWNS,NOEXE,2 


BUFIO: .BLKB 4 | 
WSPEAK: .BLKB 4 
ALT -—BLKB 4 : 
-BLKB 4 a 
PAGEFLTS: 
-BLKB 4 
VOLUMES:.BLKB 4 


-EXTRN LIBSSUBX, SYSSGETJPI | 
-PSECT SCODE$,NOWRT,2 


.ENTRY LOGOUT_MESSAGE, Save R2.R3,R4,R5 
MOVAB SYS$GETJPI, R5 
MOVAB P.ACB, R4& 

BUFIO, R3 
MOVAB WRITE FAO, R2 
MOVAB -196(SP), SP 
MOVAB USERNAME. BUFFER, USERNAME +4 
MOVAB PROCNAME BUFFER. PROCNAME+4 
PUSHL  #33685520 
MOVAB USERNAME BUFFER, JPI_LIST+4 
MOVAB us RNANE JPI_List+ 
MOVL  #52166672, JPT_LIST+12 
MOVAB PROCNAME_ BUFFER, JPI_LIST+16 


See Se Oe Be eee 
Ozer mpDna 


D 2 
16-Sep-1984 01:50:1 VAX-11 Bliss-32 V4.0-742 Page 68 
13-8087} be 93: 20:) DISKSVMSMASTER: CLOGIN.SRCILOGIN.B32; 1 . a3 
16 «AE 08 AD 9 46 MOVAB PROCNAME, JPI_LIST+20 : 2470 
A b 4B CLRL JPI_LIST+24 i 2471 
7 ¢ 4 CLRO 2s = (SP) + 2673 
? LRL -(SP) : 
OC AE OF PUSHAB JPI_LIST : 
7E 7C CLRQ 3s = (SP) : 
5 B§ Pe Bde thts  #P” SYSScETuP! ; 
09 000000006 88 0 E ose BBC #1, PPD+2, 1$ t 2475 
E p4 64 CLAL -(§p) t 2477 
EO AD OF 66 PUSHAB USERNAME : 
54 bb : PUSHL R4 : 
17 B BRB 3$ : 
OA 0000' CF €8 9060 1$: BLBS SUBPROCESS, 2$ : 2480 
E D4 0 CLRL =(SP) + 2482 
FO AD 9F 0 74 PUSHAB USERNAME : 
C AG 9F 00077 PUSHAB P.A : 
8 11 OOO7A BRB 3$ : | 
E ps 007C 2$: CLRL =(SP) + 2486 
08 AD 9F O07E PUSHAB PROCNAME : 
4 A& 99F 0008 PUSHAB P.ACD : 
62 0 FB 00084 3$: CALLS #3, WRITE_FAO : 
01 FE2D ¢ Fe tH BLGS FULL_LOGOOT, 4$ : 2490. 
50 —E 9 2008p 4$: MOVAB JPI_LIST, PTR + 2503. 
80 040C0004 $F BO 0090 MOVL 767895306 (PTR) + : 
80 63 9£ 90097 MOVAB BUFIO, (PTR)+ : 
80 D4 0009A CLRL (PTR) + : 
80 02010006 8F 00 9009¢ MOVL #33619972, (PTR)+ : 
80 04 A3 9E OOOA MOVAB WSPEAK, (PTR)+ : 
80 D4 000A7 CLRL (PTR) + : 
80 04080004 8F 00 9009 MOVL #67829764, (PTR)+ : 
80 08 A3 9E 00080 MOVAB ODIRIO, (PTR)+ : 
80 D4 000B4 CLRL (PTR) + : 
80 020000046 8F DO 00086 MOVL #33554436, (PTR)+ : 
80 OC A3 9E 000BD MOVAB VIRTPEAK, (PTR)+ : 
80 04 000C1 CLRL (PTR) + : 
80 040A0004 8F DO 000C3 MOVL #§ #67764228, (PTR)+ : 
80 10 A3 9E OOOCA MOVAB PAGEFLTS, (PTR)+ : 
80 D4 OO0CE CLRL (PTR) + ; 
80 02050004 8F 00 9000 MOVL #33882116, (PTR)+ : 
80 14 A3 9E 000D MOVAB VOLUMES, (PTR)+ : 
80 v4 00008 CLRL (PTR) + : 
80 04070008 8F D0 9000 MOVL #67567624, (PTR)+ ; 
0 F AD 9E £4 MOVAB CPUTIM, (PTR)+ : 
80 D4 000E8 CLRL (PTR) + : 
80 02060008 8F DO OODEA MOVL  $ #33947656, (PTR)+ : 
80 FO AD 9E OOOFI MOVAB LOGINTIM, (PTR)+ : 
80 4 OFS CLRL (PTR) + ; 
0 7C OQOOF CLRO (PTR)+ 3 
80 4 dors CLRL (PTR) + ; 
— 7C 000FB CLRQ = = (SP) > 2505. 
7E 04 S0FD CLRL -(SP) ; 
OC AE 9F OOOFF PUSHAB JPI_LIST ; 
7E 7¢C 00102 CLRQ 2s =( SP) : 
7E 04 ot 4 CLRL -(SP) : 
65 07 FB 001 CALLS #7, SYSS$GETJPI ; 


aa 


2 
IN bes €p-1984 01:50:1 VAK=11 Bliss-32 V4.0-742 e 69 
=000 1eaeea Toke Piz kids | Peek ealeteR cl efn tk cstociw.032210 8 «19s 
FB AD 00 FB OAD FFFE7960 8F 7A 00109 UL #100000, CPUTIM, #0, CPUTIM : 2507 
EB AD OF O14 PUSHAB CURT ms : 2510 
000000006 00 01 FB 00117 LLS #1, SYSSGETTIM : 
FO AD 9F OO1IE PUSHAB LOGINTIM + 2512 
£8 AD OF 01 1 USHAB CURTIME : 
FO AD OF 00126 PUSHAB LOG! ; 
000000006 00 03 FB 00127 CALLS #3, LIBS$SUBX ; 
54 Aa «OF O012E PUSHAB P.AC + 2514 
62 01 FB 00131 CALLS #1, WRITE_FAO ; 
7E 63 7D 00134 MOVG BU F10, -(SP) : 351 
70 Aa OF 00137 PUSHAB P.ACF- + 251 
$2 03 FB oi A CALLS Ws WRITE_FAO : 
i 08 A3 70 0013D ova Dik10 0, -(SP) : 252 
OOAB «C4 «OF 00141 PUSHAB : 251 
$2 03 FB 00145 CALLS rie WRITE_FAO : 
E 10 Ad 7D 0148 mova PAGEFLTS,- -(S§P) : 352 
00E6 c 9F 0014C PUSHAB : 252 
62 3 FB 00150 CALLS oi WRITE _FAO : 
FO AD OF 00153 PUSHAB LOGIN + 2524 
FB AD OF 00156 PUSHAB ans ae ; 
0121 C& 9F 00159 PUSHAB P.AC! ; 
62 03 FB 0015D CALLS #3, WRITE_FAO : 
04 00160 RET : 2528 


; Routine Size: 353 bytes, Routine Base: SCODE$S + 0D68 
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ROUTINE rundown_cli = 


1 ooo 

! 

This routine executes in supervisor mode to cancel the CLI's exit 
handlers. This is necessary to prevent external attacks on a LOGOUT in 
progress with the SFORCEX system service. With the exit handlers 
canceled, if LOGOUT is forcibly exited, the process goes away. 

In addition, a $CANCEL is done on the PPDS$W_INPCHAN channel. 


WN] OOONAOUES wr 


2 Calling Sequence: 

5 This procedure is called in SUPERVISOR mode with the LGISCMSUPR 
: procedure. 

: Inputs: 

5 None 

3 ! Outputs: 


Status of the rundown. 
Side Effects: 


Supervisor mode exit handlers canceled. 
Channel PPD$W_INPCHAN is canceled. 


BEGIN 


L 
status; 


IF (status = SCANEXH()) ' Cancel all exit handlers 
Fk Tarennel Sov ise 


status = SCANCEL(CHAN = .ppd Cppd$w_inpchan]); ! Cancel AST request(s) 
RETURN .status; 


END; 
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No— 


~-EXTRN SYSSCANEXH, SYSSCANCEL 
0000 00000 RUNDOWN_CLI: 
WORD 


. Save nothing : 2529) 
7E 04 9002 CLRL 3s = (SP) > 2564. 
000000006 09 gi FB 0 CALLS #1, SYSS$CANEXH : 
1 0 €9 000 BLBC STATUS, 1 : 
OE 0000" CF 4 9005 BLBC TERMINAL DEVICE. 1$ : 2565 
E 000000006 00 C 0001 MOVZWL PPD+30, =(SP) > 2567 | 
000000006 0 1 FB OOO1A CALLS #1, SYSSCANCEL ; | 
04 00021 1$: RET : 2570 


voc-000 ifgs ~3e- 1984 12:21:09 DLgKSUMEMASTERSCLOGIN. SRCILOGIN.B32; 1 oe} 
; Routine Size: 34 bytes, Routine Base: SCODE$S + OEC9 


H 2 
1eep-1986 $2:29:08 Tes 22 nES 


1 =742 Page 
vm N.SRCJLOGIN.B32;1 ' (19) 


ACTRIN = write_output using write_output to put messages 


SARAVS 


IF .status NEQ lgi$_notvalid ! If user validation error, 


: 1% sre ! GLOBAL ROUTINE handler (signal_args, mechanism_args) = 

: 166 ig 1 !--- 

: 216 574 1! 

; 2168 , ee This is the primary condition handler for the loginout 

3 192 6 1! image. Issue the error message, and for fatal errors, 

: 110 sre : force the termination of the process. 

: 217 79 1! Inputs: 

: $198 i. 

3: 21746 281 7! Access mode may be either user or executive depending on 

; 5172 28¢ } } the current mode when the condition is signaled. 

: 2177 584 1! signal_args = Address of signal argument vector | 
: sive 2B? ’ } mechanism_args = Address of mechanism argument vector 
: $180 587 1 ‘ Outputs: | 
: 2181 588 1! 

3; 2182 589 1! None 

3; 2183 2590 1 !e<- 

>; 2184 591 1 

> 2185 238 BEGIN 

: 2186 59 

: 2187 594 MAP 

; 2188 2595 signal_args: REF BBLOCK, ! Address of signal vector 

; $133 $298 2 mechanism_args: REF BBLOCK; ! Address of mechanism vector 

: 2191 $396 BIND 

3 $196 $23) status = signal_args (chf$l_sig_name]: BBLOCK; ! Get at status fields 

: Sige ; 4 if -Signal_args (Cchf$l_sig_name] EQL ss$_unwind ! If unwinding, 

: 2196 § 08 RETURN false; ! then pass on to next handler | 
: 2198 2605 signal_args pshyst sig-args) = .signal_args Cchf$l_sig_args] - 2; | 
3 2199 2606 signal_args (2,0,16,0J°= 1; ' Output only text portion 
3 $300 2 ! (inhibit message prefixes) 
: 220 5 write output status = 0; ! Preset no message output | 
; $$5 P § SPUTMSG(MSGVEC = .si nal _args, ' Output messages | 
i $8 5 | 
; 32 

3 de TH 

% 

; 3 

: ae 

3 de 


PAEAAAAAAAA AAAS AAAAAAAAA A AAAS 


07 

08 

09 

10 

i} 

18 ; | 
07 14 AND .status NEQ (gi$_userauth ! return with validation code 
08 15 ' already set by signaller 
10 1g ppd Cppd$l_lststatus] = .status; ! Else, set final job status 
1 18 if ,stetus EQL Lgi$_inputerr ! If error opening input file, 
18 0 ppd Cppd$l_lststatus) = -(.signal_args¢12); ! Exit with RMS status code 
19 1 ' for NETACP interpretation of netjob 
16 ‘ IF .doing_login ! If this is a login 
17 4 AND .status [sts$v_severity] NEQ piss uprning ! and not only a perging 
18 5 THEN security_audif(nsa$k rectye logf, !_ then security audit the failure 
y $ -ppd ECpopd$l_Tststatus]); 


Sg 


WN O OONOULS wry 


FF EWAAWNNNNnror 


yy RRR 4 
WNC ODNOUSW—OOMw 


=—PONININIWUE BEE EE PW 


08 000000006 00 


BEGIN 
IF .ctl$gl_creprc flagstprc$v batch) 
hg terminate_batch(.signal_args) 


BEGIN 
IF .doing_ login 


THEN set tersinel_hengup(true): 


ons output_ status 


N ppd Eppd$i_Tststatus 
“ppd Bifs a srecetus 
ye (ROUTIN = exit_process); 


END; 


RETURN ss$_continue; 


54 000000006 00 
53 000000006 00 
52 06 AC 
00000920 8F 04 Ag 
0095 
62 02 
02 Ae 01 
64 
7E 
000000006 98 
00000006 00 04 
00000006 8F 04 ng 
000000006 8&F 04 Af 
g3 046 =A 
00000000G 8F 04 A 
63 OC A2 
11 0000" CF 
07 04 


000000006 90 
2 


000000006 00 


= . 
i OR sts$m_inhib_msg; 
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1s “1984 01:50:1 VAX=-11 Bliss-32 V4.0-742 Pa 73 
14-Sep-19 4 93528508 DISKSVMSMASTER:CLOGIN.SRCILOGIN.B32; 1 9° 19) 
IF _.status Csts$v_severity] EQL sts$k_severe 


! If fatal error, 


' then, if batch job 
i terminate job stream 


! If this is a login, 

' Ensure terminal hangs up 
! If exit status output, 

! Inhibit further output 


!" Terminate process 


! otherwise, continue execution 


-EXTRN SYSSPUTMSG 


-ENTRY HANDLER, Save R2,R3,R4 
MOVAB WRITE _OUTPUT_STATUS, R4 
MOVAB PPD+2%, R3 

MOVL SIGNAL _ARGS R2 

CMPL 4(R2), #2336 


BNEO 
BRW 9$ 

SUBL2 #2, (R2) 

MOVW #1. 2(R2) 

CLRL  WRITE_OUTPUT_STATUS 
CLRO = = (SP) 

PUSHAB WRITE_OUTPUT 

PUSHL 


CALLS #4, SYSSPUTMSG 
CMPL) = &(R2), #LGIS_NOTVALID 


R2), #LGI$_USERAUTH 


) 

) 

2), PPD+24 
F-LOGIN. 4$ 
), & 


CALLS *. scent AUDIT 
#0, #3, 4(R2T, #4 


8 
BBC #4, CTLSGL_CREPRC_FLAGS, 58 
CALLS #1, TERMINATE_BATCH 


2 
Lo IECSEEARE HLEREUE SMGMASARRERE HSS ?Snoc.osaf¥%ds) |" 


20 11 000 BRB 8$ F | 
07 0000' CF €E9 00092 5$: BLBC DOING_LOGIN, 6$ + 2635) 
1 DD 0009 PUSHL Hi + 2636 
0000v CF 1 FB 099 CALLS SET_TERMINAL HANGUP : | 
4 64 i 9 6$: BLBC unite pOOIBuT. STATU t 2637 
03 10 88 OOOA BISB2 #16 > 2639 | 
7E p4 a3 7$: CLARL = 6)? + 2640 
0000v CF 9F QOOA PUSHAB EXIT PROCESS ; 
000000006 90 é FB A CALLS SYSSCHEX XEC ; 
b0 08 8$: OWL CR ; 2646 
50 be O86 98 CLRL RO 3 2646) 
4 000 RET : | 


; Routine Size: 185 bytes, Routine Base: S$CODES + OEEB 


Moron 


PAEAEQ®EMAI ANGI 
WN OOONOULS WHO 


Mroreroerory 


; Routine Size: 


; 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CLOGIN. SRCILOGIN.B32; ‘y 


oT } GLOBAL ROUTINE exit_process: NOVALUE = 
G29 | tans 
650 1! 
651 1! Terminate the process execution. This is done in executive 
$26 : mode in order to bypass any supervisor mode exit handlers. 
837 1 ' Inputs: 
655 1! 
656 1! Access mode is executive. 
sti 
} one 
gee | i 
269 } } Outputs: 
66 There is no return - the image is exited. 
664 1— 
oe? BEGIN 
pat SEXIT(CODE = .ppd Cppd$l_ltststatus]); ! Exit with final job status 
669 1 END; 


-EXTRN SYSSEXIT 


0000 ENTRY EXIT PROCESS, Save nothing 
000000006 89 DD PUSHL PPD+24 
000000006 00 be cayts #1, SYSSEXIT 


16 bytes, Routine Base: S$CODES + OFA4 


75, 
9° (26) 


Tab 


2 
base -1984 01:50:1 VAX-11 Bliss-32 V4.0-742 Pa 76 PRC 
4 set 7 93:20:48 DISKSVMSMASTER: CLOGIN. SRCJLOGIN.B32;1 arabe v04 


; 2265 $70 1 ROUTINE clear_creator_cli: NOVALUE = 

; $8 671 1 

3 6 of¢ 1 ' moe 

; 2268 675 1! 

3 9 674 1! Clear the creator's CLI and CLI table name strings. 

; £9 of? : } Also clear inherited mandatory auditing status. 

3s der ors 1! Inputs: 

; ee? of8 1! 

3 2274 679 1! Access mode is kernel. 
; 2275 680 1! 

: 227 681 1 ! Outputs: 

; ee? 6 § 1} 

3 4 6 1! None. 

; 2e7 684 1! 

; 2280 685 1 !--- 

; 2281 on6 1 

; HG 68 BEGIN 

; 228 488 

3 2284 689 2 EXTERNAL 

; 2285 690 sch$gl_curpcb: REF BBLOCK ! Current PCB pointer 

; see 691 ctl$gt_cliname: VECTOR BYTE). : Creator's CLI name (ASCIC) 
5 § 44 res ctl$gt_tablename: VECTOR ‘BYTE ! Creator's CLI table name (ASCIC) 
3 $589 694 pebests s*tSBiT Cpcb$v_secaudit] = false; 

3; 2290 695 b_sts sBirposit ITION(peb$v_ fed SB false; 

: 2291 696 LSgt_cliname 5 ‘0 

; $538 697 cel sor_ ped toi ° 

3; 229 2698 2 

3; 2294 2699 1 END; 


~-EXTRN SCHSGL_CURPCB, CTLSGT_CLINAME 
-EXTRN CTLSGT_TABLENAME 


0000 00000 CLEAR_CREATOR_CLI: 


«WORD Save noghing : 2670 
50 00000000G 00 00 00002 MOVL S N56 CURPCB, RO : 2694 
AO 08 8A 00009 thi #8, 39TRO) : 
0000" CF 0&8 8A 00000 BICB #8, PCB_STS+3 : 2695 
00000000G 00 94 id CLRB CTLS$GT_CLINAME ; 2696 
000000006 00 94 BAO) CLRB CTL$GT_TABLENAME ; 2697 
04 OOO1E RET 3; 2699 


; Routine Size: 531 bytes, Routine Base: $CODES + OFB4 


1 
| 


M 2 
16-Sep-1984 01:50:18 VAX-11 Bliss-32 V4.0-742 Page 77) 
14-Sep-1984 12:41:09 DISKSVMSMASTER:CLOGIN.SRCJLOGIN.B32;1 (22). 
+4 GLOBAL ROUTINE set_terminal_hangup (hangup): NOVALUE = 
98 0 lawn | 
99 0 ‘ | 
ay 8 Set or clear terminal's hangup state. | 
° 8 ! Inputs: 
304 9 hangup = Hangup state to set. | 
Outputs: | 
None. 
- 
BEGIN 
OWN 
hang_devchar2: BLOCK (4,BYTE); ! Holds terminal's disconnected state 


IND 
hang_item = UPLIT (4 OR (dvi$_devchar2 * 16), hang_devchar2, 0, 0); 


LOCAL 
channel: WORD, ' Place to store assigned channel 
iosb: VECTOR C4,WORD], ' 1/0 status block 
buffer: VECTOR (£3); 


! Characteristics buffer 


IF NOT .terminal_device : 

OR .dev_char_2 (Cdev$v_rtt] ' 

OR .ppd Cppd$v_mode] : of non-interactive, 
' 


_symerorsss or a subprocess, 
OR NOT civ 


' If not a real terminal, 
or terminal is a remote terminal, 


v 
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term_name or can't fetch terminal's state, 
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SSS co ane~ewsusesro bio 
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= | 
J LST = yong, X 
OR sheng devchar2 Cdev$v_det ! or terminal now disconnected, 
THEN RETORN; ! then forget any hangup 
Pp IF (SASSIGN(DEVNAM = term_name, ! Assign a channel to the terminal | 
35 CHAN = channel)) 
36 THEN 
37 BEGIN ye 
38 P IF ($QIOW(CHAN = .channel, ! Get current characteristics 
39 P FUNC = io$_sensemode, 
40 P 10SB = iosb, 
41 B Pi = buffer, 
4e Pes 12h | 
34 AND .iosb(0) 
344 74 
rb ie BEGIN 
329 75 BIND dovdepends = buffer (2): BBLOCK; ! Where HANGUP bit is stored 
“8 2 devdepend2 ([tt2$v_hangup] = .hangup; ! Set the correct hangup state 
39 P 275 $QI1OW(CHAN = .channel, ! Write characteristics back 
351 P 275 FUNC = io$_setmode, 
352 P 275 = buffer, 


N 2 
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14-Sep-1984 93:29 41 tt: DISKSVMSMASTER: CLOGIN. SRCILOGIN.B32; 29 * (22) Vv04 
; 3 757 & P2 = 12); 
; 4 7 : END; 
: 2355 7 SDASSGN(CHAN = .channel); ' Free up the channel 
: 28 760 END; 
: 761 
3 58 762 END; 


»PSECT $PLIT$,NOWRT,NOEXE,2 


2 -BLKB | 
4 P.ACJ: «LONG #5073284 ; | 
8 ADDRESS HANG_DEVCHAR2 : 

C “LONG 0, 0 ~ 


-PSECT SOWNS,NOEXE,2 | 
QO1EC HANG_DEVCHAR2: 
.BLKB 


00000000 


XTRN syssASsion, SYS$Q10W 
~-EXTRN SYS$DASSGN 


| 
HANG. ITEM= ACJ 
.PSECT $CODE$,NOWRT,2 

| 


0004 00000 .ENTRY SET TERMINAL _HANGUP, Save R2 : 2700. 
ee ce 60009 a? mee oe a 
01 0000" CF €8 0000C BLBS TERMINAL DEVICE, 1$ : 2729 
04 00011 RET : 
01 0000" CF 02 Fi 90012 1$: BB #2, DEV_CHAR_2, 2$ : 2730 
7E 000000006 00 01 £0 00019 2s: BBS PPD+2, 4$ : 2731 
79 0000" CF EB 00021 BLBS Sugprocess, 4$ : 2732 
7E 7C 00026 CLRQ  =(SP) : 2734 
7E 7C 00028 CLRQ = =(SP) ; 
0000' CF 9F OO02A PUSHAB HANG_ITEM : 
0000" CF 9F O00¢E PUSHAB TERM NAME ; 
7E 7C 000 CLROQ (SP : 
000000006 00 08 FB 0034 CALLS #8. SYSSGETDVIW : | 
5B 0000' CF 1 £0 0003E BBS #1. HANG_DEVCHAR2, 4$ + 2735 
oH Be itt cLRo«C=(Sp)— : 3333 
08 AE OF 00046 PUSHAB CHANNEL : | 
0000" CF 9F 9049 PUSHAB TERM_NAME : | 
000000006 09 04 FB 0040 CALLS a, SYSSASSICN | 
7E i 0057 CLRO RO ep) > 2746. 
7E 7C 00059 CLRQ  =(SP) : 
OC oD 00058 PUSHL : 
18 AE 9F 0005D PUSHAB BUFFER : 
7E 7C 00060 CLRQ. = : | 
30 AE OF 0062 PUSHAB 10SB : 
2 pp 0006 PUSHL #39 : 
7E 28 AE C 00067 MOVZWLE CHANNEL, -(SP) : 


a ~ —— . —_—— 


oe ee 
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7E 04 B CLRL 2” F 
$¢ of Fe D CALLS #1 a ; 
a BLBC : 
1E 10 AE €E9 0007 BLBC Pose 5 : 2747 
02 04 ac FO 0007 INSV HANGUP , #2, #1, DEVDEPEND2 F Here 
7E 7C 0007 CLROQ (SP) : 2757. 
7E 7¢€ 000 CLR =(§P) : 
OC pb 00 PUSHL #1 : 
18 AE 9F 00084 PUSHAB BUFFER : 
43 7C 00087 CLRQ = : | 
7E 23 7D 00089 MOVQ #35, =(SP) : 
7E 28 AE 3C 44 MOVZWL CHANNEL, -(SP) : 
7E D4 0009 CLRL oe ; 
62 OC FB 9009¢ CALLS #12, SYS$QIOW : 
7E 6—E 3C 00095 3$: MOVZWL CHANNEL =-(SP) : 2759 
000000006 00 01 FB 00098 CALLS , SYS$DASSGN : 
04 OO09F 4$: RET + 2762 


; Routine Size: 160 bytes. Routine Base: $CODES + OFD3 
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$/63 1 END 
764 0 ELUDOM 


~-EXTRN LIBSSTOP 


PSECT SUMMARY 
Name Bytes Attributes 


SGLOBALS 292 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL pata Eg bod fs 
SOWNS 496 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 1188 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL othe Eig boat t | 
SCODES 4211 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 

; Library Statistics 
Soweto . - tae eeoe Symbols eo-<e--- Pages Processing | 
3 File Total Loaded Percent Mapped Time | 
: _$255$DUA28: CSYSLIBILIB.L32;1 18619 157 0 1000 00:01.4 | 
| 

| 

; COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:LOGIN/OBJ=0BJ$:LOGIN MSRC$:LOGIN/UPDATE=(ENH$:LOGIN) | 


; Size: 4205 coge + 1982 data bytes 
3; Run Time: 0:54.9 

3; Elapsed Time: 03:50.2 
3 Lines/CPU Min: 3019 
; ete oe ls | 35826 

$ poneey Used: 354 pages 
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